program exProcedure;
procedure findMax(x, y : integer; var m: integer);
var a, b, max: integer;
begin
if x > 3*y then
m := x
else
m :=3*y;end;
begin
writeln(' Introduceti numerele naturale a si b: ');
readln( a, b);
findMax(a, b, max);
writeln(' Maximum: ', max);
end.
