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

var   mas: array[-1000..1000] of integer;   i, k, n: integer; begin   {ввод количества элементов массива}   readln(n);   {ввод числа к}   readln(k);   {ввод массива и его вывод на экран}   randomize;   for i := 1 to n do    begin     mas[i] := 50 - random(100) - 1;     write(mas[i]:4);     if (i mod 10 = 0) then writeln;   end;   {замена элементов массива}  writeln;   for i:=1 to n do begin   if (mas[i] mod k=0) then mas[i]:=0   else   mas[i]:=1;   write (mas[i]:4);   if (i mod 10 = 0) then writeln;   end;  end.