Program CrazyCoder;

var
s:string;
i:integer;

begin
Writeln('Введите Имя:');
readln(s);
for i:= 1 to 100 do
Writeln(s);
end.