Определить значение Z=max(a,2b)*(2a-b,b)

Var z,max1,max2,a,b:real;
Begin
    write('a,b: ');readln(a,b);
    if a>2*b then max1:=a
     else max1:=2*b;
    if 2*a-b>b then max2:=2*a-b
     else max2:=b;
    z:=max1*max2;
    writeln('Z = ',z:0:2);
    readln;
End.

Var z,a,b:real;
Function Max(x,y:real):real;
Begin
    if x>y then max:=x
     else max:=y;
End;
Begin
    write('a,b: ');readln(a,b);
    z:=max(a,2*b)*max(2*a-b,b);
    writeln('Z = ',z:0:2);
    readln;
End.

var a,b,l,r,z:integer;
begin
  write('a = ');readln(a);
  write('b = ');readln(b);
  if a<2*b then l:=2*b else l:=a;
  if 2*a-b<b then r:=b else r:=2*a-b;
  z:=l*r;
  Writeln(z);
end.

var a,b,z: Integer;
 
function max(x,y: integer):integer;
begin
  if x<y then max:=y else max:=x;
end;
 
begin
  write('a = ');readln(a);
  write('b = ');readln(b);
  z:=max(a,2*b)*max(2*a-b,b);
  Writeln(z);
end.