Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так:

паскаль

паскаль паскаль

паскаль паскаль паскаль

Если задание недопонял, пиши и объясни. Перепишу

var text1:string; count, i:integer;

begin

write ('Введите слово: ') ;

readln (text1) ;

write ('Сколько раз мне его показать на экране? ') ;

readln (count) ;

for i:=1 to count do

begin

write (text1, ' ')

end;

end.