{ max2.p
  compute the maximum of two numbers entered by the user
  using a function

  example for CS 313
}

program max2;

function max(a, b : integer): integer;
begin
   if a > b then
      max := a
   else
      max := b;
end; { max }

var a, b, m : integer;
begin
   write('Enter two numbers: ');
   readln(a, b);
   m := MAX(A, B);
   writeln('the greater of ', a, ' and ', b, ' is ', m)
end.