Даны целые числа k и n (n> 0). вывести n раз число k язык программирования паскаль

Var
k,n,i:integer;
begin
writeln('Введите k и n');
readln(k,n);
for i:=1 to n do
write(k,' ');
end.