функции в паскале

[malenkaya]

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

[MoBLer]

Вот непропроверял но должно рабатать

function min(a,b:integer):integer;
begin
if a>b then min:=b else min:=a;
end;
var
z,b,a:integer;
begin
readln(a,b);
z:=min(a,3*b)*min(2*a-b,2*b);
writeln(z);
readln



end.

[malenkaya]

спасибо =)