не работает.

[svoi92]

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

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]

http://www.programmersforum.ru/showt...782#post737782

[CepbIu]

в общето как то вот так должно выглядеть...

uses crt;
var a,b,z,z1,z2:integer;
function min(a,b:integer):integer;
begin
clrscr;

end;
begin
writeln ('a');
readln(a);
writeln('b');
readln(b);
writeln(min(a,b));
readln;
end.

---------------------------

не видел что уже сделали решение, хотел указать на ошибку