Ответ: Благодарю

Ответ:

program raf105;

var a,n,i: integer;

begin

write(‘n = ‘);

readln(n);

write(‘a = ‘);

readln(a);

for i:=1 to n do

 writeln(a);

end.

PascalABC 3.4.2