Написать в Паскаль.Двухмерный массив размером M*N заполнить случайными целыми числами в интервале от -90 до 0. Вывести полученный массив на экран в виде таблицы. Найти количество элементов кратных 4 в последней строке.

const   n = 5; m = 5; var   a: array [0..m, 0..n] of shortint;   i, b, c: integer; begin   for i := 1 to m do   begin     for b := 1 to n do     begin       a[i, b] := random(-90, 0);       write(a[i, b]:4);       if (i = m) then         if (a[i, b] mod 4 = 0) then           c += 1;     end;     writeln((i = m) and (b = n) ? ' ' + c : '');   end;   writeln(); end.

var a:array [1..200,1..200] of integer; i,k,m,n:integer; begin writeln ('Введи размерность массива'); readln (m,n); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(91)-90; write (a[i,j]:4); end; writeln; end; for j:=1 to n do if a[m,j] mod 4=0 then inc(k); writeln (k); readln; end.