Напишите в паскале программу
дан двумерный массив из n элементов
к-это количество элементов двумерного массива которые без остатка делятся на 5 программа заменяет элементы равные к на 0 а
если нет таких элементов то программа заменяет все элементы на 1

const n=5;

var

 a:array [1..n,1..n] of integer;

 i,j,k:integer;

begin

 k:=0;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(151)-50;

         write(a[i,j]:4);

         if (a[i,j] mod 5 =0) then  

             inc(k);

       end;

     writeln;

   end;

   writeln;

     if k<>0 then

       begin

         for i:=1 to n do

           begin

             for j:=1 to n do

               begin

                 if a[i,j]=k then a[i,j]:=0;

                 write(a[i,j]:4);

               end;

             writeln;

           end;

         writeln('K= ',k);

       end

         else  

           begin

             for i:=1 to n do

               begin

                 for j:=1 to n do

                   begin

                     a[i,j]:=0;

                     write(a[i,j]:4);

                   end;

                 writeln;

               end;

              writeln('K= 0');  

           end;

end.