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

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

лесенка

лесенка

лесенка

лесенка