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

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