Дано выражение с переменными х,t,z. Составь программу, которая вычисляет значение этого выражения

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.

1.
var i,summa: integer;
A: array [1..11] of integer;
begin
summa:=0;
randomize;
write('Массив: ');
for i:=1 to 11 do begin 
 A[i]:=random(36)-10;
 write(A[i],' '); 
 end;
writeln;
for i:=1 to 11 do
 if A[i] mod 5 = 0 then summa:=summa+A[i]; 
writeln('Сумма чисел кратных 5= ',summa);
end.
2.
var i,s: integer;
A: array [1..6] of integer;
begin
s:=0;
randomize;
write('Массив: ');
for i:=1 to 6 do begin 
 A[i]:=random(58)-4; 
 write(A[i],' ');  
 end;
writeln;
for i:=1 to 6 do
 if A[i] < 7 then s:=s+1;
writeln('Количество элементов меньших 7: ',s); 
end.