Задача "for" pascalABC.net
Даны целые числа K и N (N>0). Вывести N раз число K.

Program n1;
var K,i: integer;
N: byte;
begin
write(введите число: );
readln(K);
write(введите кол-во раз: );
readln(N);
if(Ngt;0) then for i:=1 to N do writeln(K);
end.