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

[Wi1D]

Требуеться разместить слово ПРИВЕТ по диагонали в паскале((((я понятия не имею как....
помогите(

[Wi1D]

я еще жду ответа))))хотя бы скажите это возможно на ПАСКАЛЕ или нет?!!

[5naip]

+два бонусных экзотических метода

var
  i,j:integer;
  space: string;
  privet:array[0..5] of char = ('p','r','i','v','e','t');
begin
//способ 1
for j:=0 to 5 do
  begin
    space:='';
    for i:=0 to j+1 do
      begin
      space:=space+#32+#32;;
      end;
    writeln(space+privet[j])
  end;
//способ 2
for j:=5 downto 0 do
  begin
    space:='';
    for i:=0 to j+1 do
      begin
      space:=space+#32+#32;;
      end;
    writeln(space+privet[j])
  end;
//способ 3
Writeln('p');
Writeln('  r');
Writeln('    i');
Writeln('      v');
Writeln('        e');
Writeln('          t');
readln;
end.

[Wi1D]

СПАСИБО 5naip!!!)))а может тогда подскажешь на еще один вопросик...
Как создать в центре экрана окно красного цвета заданного размера (запросить). В центре окна вывести слово “ПРИВЕТ” по диагонали...
Скажи что знаешь!)

[alex_fcsm]

Используйте OutTextXY для вывода слова

[Wi1D]

ну да...а как создать в центре экрана окно заданного размера...
нужно выполнять операции напрямую с координатами?если да то какие?
на словах хоть...в код я преобразую

[alex_fcsm]

Rectangle пробуйте

[Wi1D]

а там есть примечание!Использовать только модуль CRT

[alex_fcsm]

Ну тогда с помощью

writeln('=================')
                             writeln('||')

как 5naip показал

[Wi1D]

Я вот думаю может вот так?

Program TTPuBet;
uses CRT;
var k:integer;
Begin
ClrScr;
TextBackground(RED);
window(40,13,45,16); \\Вот тут загвоздка с тем что надо по центру и именно таких размеров как введет пользователь
TextColor(Yellow);
for k:=1 to 3 do
begin
Writeln('TT');
Writeln('  P');     \\тут использовать типо этого можно OutTextXY? 
Writeln('   u');
Writeln('    B');
Writeln('     e');
Writeln('      T');
readln
end;
readkey;
End.