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

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