Question

помогите решить через программу паскаль​

Answer 1

Ответ:

program z;

var n:single; k, c:byte;

begin

read(n, k);

for c:=0 to k do

writeln(n);

read();

end.