<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.ToWords.Count.Println
end.
Program n1;
var K,i: integer;
N: byte;
begin
write('введите число: ');
readln(K);
write('введите кол-во раз: ');
readln(N);
if(N>0) then for i:=1 to N do writeln(K);
end.