Написать подпрограмму min(a,b) для нахождения минимального из двух чисел. Вычислить с помощью неё значение выражение z=min(3x,2y)+min(x-y,x+y) — Pascal(Паскаль)

function Min(a,b: integer): integer;
 begin
   if a < b then Min := a
    else min := b
 end;
 
 begin
  readln(x);
  readln(y);
  z := (Min(3*x,2*y)+ Min(x-y,x+y));
  writeln(z);
  readln
 end.