Надпись по диагонали Опции

[Slam]

Напечатать исходный текст в следующем виде:
                            Т
                          Е
                        К
                      С
                    Т

[AlaRic]

В уроках есть нечто похожее...смотри 16-й!

[Ivs]

Код

program Text;
uses crt;
var
  s:string;
  x,y:integer;
begin
  ClrScr;
  s:='TEXT';
  x:=length(s);
     for y:=1 to length(s) do
     begin
        gotoxy(x,y);
        write(s[y]);
        dec(x);
     end;
  readln;
end.

[Slam]

Спасибо!
Но текст должен вводить сам пользователь.

[Ivs]

Ну так....

Код

program Text;
uses crt;
var
  s:string;
  x,y:integer;
begin
  write('Input text -> ');
  readln(s);
  ClrScr;
  x:=length(s);
     for y:=1 to length(s) do
     begin
        gotoxy(x,y);
        write(s[y]);
        dec(x);
     end;
  readln;
end.

[Slam]

Ещё раз спасибо, я уж сам понял.
Сначала пишу, потом думаю...