не работает.

[svoi92]

Определите значение z=min⁡(a,3b)*min⁡(2a-b,b), где min(x,y) – минимальное из чисел x, y. Определите и используйте функцию min.


program ex;
uses crt;
var a,b,z,z1,z2:integer;
function min(a,b:integer):integer;
begin
clrscr;
if a>b then min:=b
else min:=a;
writeln ('a,b= ');
readln (a,b);
z1:=min(a,3*b);
z2:=min(2*a-b,2*b);
z:=z1*z2;
writeln ('z= ',z);
readln;
end;
end.

[VadikV]

program ex;
uses crt;
var a,b,z,z1,z2:integer;

function min(a,b:integer):integer;
begin
if a>b then min:=b
else min:=a;
end;

begin
clrscr;
writeln ('a,b= ');
readln (a,b);
z1:=min(a,3*b);
z2:=min(2*a-b,2*b);
z:=z1*z2;
writeln ('z= ',z);
readln;
end.

[GetMax]

program ex;
uses crt;
var a,b,z,z1,z2:integer;
function min(a,b:integer):integer;
begin
if a>b then min:=b
else min:=a;
End;
Begin
ClrScr;
writeln ('a,b= ');
readln (a,b);
z1:=min(a,3*b);
z2:=min(2*a-b,2*b);
z:=z1*z2;
writeln ('z= ',z);
readln;
end.