diagstr.PAS

{* Вывод строки по диагонали *}

Unit DIAGSTR;
Interface
Implementation
Begin
 writeln('Вывод строки по диагонали');
End.

Program pas0;

Uses diagstr.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  s : String;
  i : byte;
Begin
  write('String: ');
  readln(s);
  clrscr; {* Стираем всё с экрана *}
  For i := 1 To length(s) Do {* Цикл для i => [1 .. length(s)] *}
  Begin
    gotoxy(0 + 2 * i, 0 + i);
    writeln(s[i])
  End;
  readln
End.