Как расположить слово по диагонали

[Wi1D]

дело в том что если прочитаете выше то там написано - использовать только модуль CRT(((
а то что показали это graph...

[Wi1D]

Вот что я написал:

Program TTPuBet;
uses CRT;
var x1,y1,x2,y2,x,y,k:integer;
Begin
 TextBackground(Black);
 ClrScr;
 TextColor(White);
	Writeln('yBa}l{aeMblu TTOJlb3oBaTeJlb!');
	Writeln('BBoDu TOJlbKo U,eJlble 4uCJla u ');
	Writeln('He 3abblBau 4To GabaPuTbl OkHa 80x25');
	Writeln('BBeDuTe DJluHy OKHa.DJluHa= ');
	read(x);
	Writeln('BBeDuTe BblCoTa OKHa.BblCoTA= ');
	read(y);
 ClrScr;
	x1:=40-(x div 2);
	y1:=12-(y div 2);
	x2:=40+(x div 2);
	y2:=12+(y div 2);
	TextColor(yellow);
	TextBackground(red);
	window(x1,y1,x2,y2);
begin
Writeln(' TT     ');
Writeln('   P    ');
Writeln('    u   ');
Writeln('     B  ');
Writeln('      e ');
Writeln('       T');
readln
end;
readkey;
End.

В результате на экран по центру вылазиет надпись "Привет" по диагонали
Теперь осталось сделать так чтобы само окно закрашивалось в красный цвет.И использовать можно только CRT

[Wi1D]

Окно всмысле не все а то самое window(x1,y1,x2,y2)

[Wi1D]

жаль что никто не знает

[pomoshnic]

С окном не знаю, а вывод по диоганали можно сделать вот так:

begin
writeln('P',#10,'r',#10,'i',#10,'v',#10,'e',#10,'t');
readln
end.

[pomoshnic]

Сообщение от Wi1D

Я смог в центре разместить окошко...
а как теперь сделать чтобы оно было красненькое а все остальное черное?
TextBackground(RED); это не помогает

Вроди сделал

Program TTPuBet;
uses CRT;
var x1,y1,x2,y2,x,y,k:integer;
Begin
 TextBackground(Black);
 ClrScr;
 TextColor(White);
	Writeln('yBa}l{aeMblu TTOJlb3oBaTeJlb!');
	Writeln('BBoDu TOJlbKo U,eJlble 4uCJla u ');
	Writeln('He 3abblBau 4To GabaPuTbl OkHa 80x25');
	Writeln('BBeDuTe DJluHy OKHa.DJluHa= ');
	read(x);
	Writeln('BBeDuTe BblCoTa OKHa.BblCoTA= ');
	read(y);
 ClrScr;
	x1:=40-(x div 2);
	y1:=12-(y div 2);
	x2:=40+(x div 2);
	y2:=12+(y div 2);
	TextColor(yellow);
	TextBackground(red);
	window(x1,y1,x2,y2);
	clrscr;
begin
Writeln('TT',#10,'P',#10,'u',#10,'B',#10,'e',#10,'T');
readln
end;
readkey;
End.

[Wi1D]

pomoshnic спасибо щас попробую)))

[Wi1D]

Спасибо всем за ваши идеи!!!
Вот полностью рабочий код!))

Program TTPuBet;
uses CRT;
var xs,ys,x1,y1,x2,y2,x,y,k:integer;
Begin
 TextBackground(Black);
 ClrScr;
 TextColor(White);
	Writeln('yBa}l{aeMblu TTOJlb3oBaTeJlb!');
	Writeln('BBoDu TOJlbKo U,eJlble 4uCJla u ');
	Writeln('He 3abblBau 4To GabaPuTbl OkHa 80x25');
	Writeln('BBeDuTe DJluHy OKHa.DJluHa= ');
	read(x);
	Writeln('BBeDuTe BblCoTa OKHa.BblCoTA= ');
	read(y);
 ClrScr;
	x1:=40-(x div 2);
	y1:=12-(y div 2);
	x2:=40+(x div 2);
	y2:=12+(y div 2);
	TextColor(yellow);
	TextBackground(red);
	window(x1,y1,x2,y2);
	clrscr;
begin
xs:=(x div 2)-2;
ys:=(y div 2)-2;
GOTOXY(xs,ys);
writeln('TT',#10,'P',#10,'u',#10,'B',#10,'e',#10,'T');
readln
end;
readkey;
End.