вывести на экран 1 15 раз

{выводит строку 115 раз}
var a:string;
i:integer;
begin
writeln ('vvedi stroku');
readln (a);
for i:=1 to 115 do
writeln (a);
readln;
end.