Даааааааааааааааааааааааааааааа
Program nau;
var a: array [1..4, 1..4] of real; i,j: integer; k,l: real;
begin
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
readln (a[i,j]);
end;
k:=a[1,1];
for i:= 1 to 4 do
for j:= 1 to 4 do
if a[i,j]>k
then k:=a[i,j];
writeln ('наибольший элемент массива = ',k);
<span>end.</span>
ВОТ ЧТО ПОЛУЧИТСЯ
begin B:=A[MAXI,J]; A[MAXI,J]:= <span>PAR(var A:ARR):</span>
var a: integer;
begin
readln(a);
if a<0 then a:=(-1)*a;
if (a mod 2<>0) and (a>9) and (a<100) then
write(a,' - нечетное двузначное число') else
write(a,' - не является нечетным двузначным числом');
end.