Даны 3 двумерных массива A, B, C разной длины.
Разработать процедуру ввода массивов и вычисления максимальных значений каждого из массивов.
Полученные максимумы передать в программу, в которой найти максимум среди 3-х максимальных значений.
Результаты выдать на экран.
НУЖЕН ПАСКАЛЬ

спасибо

Паскаль и Си - это языки максимум нынешнего дня. А время идет...

Type Mass = array[1..50,1..50] of integer;Procedure ABC(Var A:Mass; Var Max:integer);Var   i,j:integer;BeginWrite('M = ');ReadLn(i);Write('N = ');ReadLn(j);For i:= 1 to i do    Begin    For j:= 1 to j do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;{Поиск максимума}Max:=A[1,1];For i:= 1 to i do    For j:= 1 to j do        if A[i,j]>Max then Max:=A[i,j];End;Var   A,B,C:Mass;   MaxMax,Max:integer;BeginRandomize;WriteLn('Массив A(M,N):');ABC(A,Max);WriteLn('Max(A) = ',Max);MaxMax:=Max;WriteLn;WriteLn('Массив B(M,N):');ABC(B,Max);WriteLn('Max(B) = ',Max);if MaxMax<Max then MaxMax:=Max;WriteLn;WriteLn('Массив C(M,N):');ABC(C,Max);WriteLn('Max(C) = ',Max);if MaxMax<Max then MaxMax:=Max;WriteLn;WriteLn('Max(Max(A),Max(B),Max(C)) = ',MaxMax);End.