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

Задача

Вывести на экране строку, введенную пользователем, по диагонали.

Решение

 

uses crt;
var
    s: string;
    i: byte;
begin
    write('String: ');
    readln(s);
    clrscr;
    for i:=1 to length(s) do begin
        gotoxy(0+2*i,0+i);
        writeln(s[i])
    end;
readln
end.

 

Тема

Графика и псевдографика

Уровень

Простые задачи