{ max1.p
  compute the maximum of two numbers entered by the user
  example for CS 313
}

program max1;
var a, b, m : integer;
begin	    
   write('Enter two numbers: ');
   readln(a, b);
   if a > b then
      m := a
   else
      m := b;
   writeln('the greater of ', a, ' and ', b, ' is ', m)
end.