Question

Problema 3 din imagine, Pascal urgent

Answer 1

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.