составьте программу написания своего имени ** экране в строчку сто раз!!

Question

составьте программу написания своего имени на экране в строчку сто раз!!

Answer 1

Var x: string;
i:integer; 
 begin  write('Введите имя: ');
  readln(x);
  for i:=1 to 100 do  write(x,' ');
end.