Написать программу, которая в одномерном массиве, заданном вводом данных с клавиатуры заменяет все числа в массиве заданным числом.

var  

 a: array [1..1000] of integer;

 n, x, i : integer;

begin

   readln(n);

   for i := 1 to n do begin

       read(a[i]);

   end;

   readln(x);

   for i := 1 to n do begin

       a[i] := x;

   end;

   for i := 1 to n do begin

       writeln(a[i]);

   end;

end.