Question

Даны целые числа K и N  (N > 0). Вывести N раз число K. 

Answer 1

var

  k,n, i:integer;

begin

  write('k = '); readln(k);

  write('n = '); readln(n);

  for i := 1 to n do

    writeln(k);

end.