1) Напишите программку в Паскале Заполнить массив случайными целыми числами. Поменять

Program  mass;

const N=10;

var a:array [1..N] of integer; i,k: integer;

begin

randomize;

for i:=1 to N do

 begin

   a[i]:= random (1000);

   write (a[i] , );

 end;

writeln;

writeln (Введите целое число k);

readln (k);

 for i:=1 to N do

 begin

   if a[i]  mod k =0 then a[i]:=0 else a[i]:=1;

   write (a[i], );

 end;

end.