program For1;
var
k,n:integer;
i:integer;
begin
repeat
write('Введите N(n>0)');
readln(n);
until n>0;
writeln('Введите K');
readln(K);
for i:=1 to n do
begin
writeln(k);
end;
end.