Составьте программу,по которой вводится произвольное слово.Выбрать число повторов.Вывести число на экран лесенкой(Со сдвигом вправо).Без использования вложенного цикла.

1)var s:string; i:integer;beginwrite('Слово: ');readln(s);for i:=1 to length(s) do writeln(' ':i,s[i]);end.Пример:Слово: лесенка л  е   с    е     н      к       а2)var s:string; n,i:integer;beginwrite('Слово: ');readln(s);write('n = ');readln(n);for i:=0 to n-1 do writeln('':i*length(s),s);end.Пример:Слово: лесенкаn = 4лесенка       лесенка              лесенка                     лесенка