Pascal Подпрограми Задача

[Vera-Dinisova]

Определить значение z = max (a, 2b) · max (2a – b, b),
где max(x, у) есть максимальное из чисел х, у. При решении
задачи:
определить и использовать функцию max.

[NEMO1991]

вот решение предыдущей задачи про числа кратные 7. та тема была удалена))

uses crt;
const n=5;
var
m:array[1..n] of integer;
i,max:integer;
begin
for i:=1 to n-1 do
read(m[i]);
m[n]:=-1;
for i:=1 to n do
   if (m[i] mod 7)=0 then writeln(i)
 end.

[Greblin]

program p1;
var a, b, z: integer;
function max(x, y: integer): integer;
begin
if x >= y then max := x else max := y;
end; 
begin
write('a: ');
readln(a);
write('b: ');
readln(b);
z := max(a, 2*b) * max(2*a-b, b);
writeln(z);
end.