Даны целые числа k> 0 и n (n = k+5). вывести n раз число k.

Program n1;
var n,k,i: integer;
begin
readln(k);
n:=k+5;
for i:=1 to n do writeln(k);
end.