Напишите программу которая выведит на экране ваше имя 100 раз

Вот решение на Паскале:
uses Crt;
const n=100;
var i: integer;    Nam: string;
begin
ClrScr;
Write (' Name = '); ReadLn (Nam);
 for i := 1 to n do
     Write (Nam:10); WriteLn;
 ReadLn;
end.