Написать в Паскаль.
Двухмерный массив размером 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;beginwriteln ('Введи размерность массива');readln (m,n);for i:=1 to m do beginfor j:=1 to n do begina[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.