Массивы в паскале.

[om3n]

Ребят, за лето все вылетело из головы. Помогите решить задачу.

Ввести через клавиатуру массив B размерами 2 на 3 (B[2,3]), определить, является ср. арифметическое всех элементов массива кратным 3.

Как-то начало примерно такое:

program abc;
const m=2, n=3;
var
a:array [1..n] of real;
begin
writeln('Введите A и B');

[_Engine_]

начало неправильное
массив должен быть таким:
a : array [1..m,1..n] of Real;

ввод осуществлять в цикле

[om3n]

Спасибо, не актуально.