Известны данные о среднемесячной температуре за год. Определить, какая была самая высокая температура летом и самая низкая зимой. Нужен код программы в паскаль.

Program Task;

Const m = 12;

Var a: Array [1 ... m] of Integer;

i: Integer;

Function Max (a, b: Integer) : Integer;

Begin

If a > b Then

Result : = a

Else

Result : = b;

End;

Function Min (a, b: Integer) : Integer;

Begin

If a < b Then

Result : = a

Else

Result : = b;

End;

Begin

WriteLn ('Введите среднемесячные температуры за год (через пробел) ') ;

For i : = 1 To m Do

Read (a[i]) ;

WriteLn ('Самая высокая температура летом равна ', Max (Max (a[6], a[7]), a[8])) ;

WriteLn ('Самая низкая температура зимой равна ', Min (Min (a[11], a[12]), a[1])) ;

ReadLn;

End.