Вывести ** экран 100 пронумерованных имен. Пр.: 1)Маша 2)Маша ...100)Маша C циклом for.

Question

Вывести на экран 100 пронумерованных имен. Пр.: 1)Маша 2)Маша ...100)Маша
C циклом for.

Answer 1

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