Var
a : array [1..12, 1..4] of integer;
i, j, max : integer;
begin
for i := 1 to 12 do
for j := 1 to 4 do
read (a[i, j]);
max := a[3, 1];
for i := 3 to 4 do
for j := 1 to 4 do
if a[i, j] > max then max := a[i, j];
write (max);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.