Это на завтра,поэтому ! даны k,m: integer.вывести на экран n раз число k

Var k,m,i:integer;
begin
writeln('k, m:');
readln(k,m);
for i:=1 to m do write(k,' ');
end.

Пример:
k, m:
7 5
7 7 7 7 7 

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