{ max1.p
 CS 313 Daniel Scharstein 9/15/2020
 compute max of 2 numbers entered by the user
 }

program max1;

var a, b, m : integer;
   
begin
   write('Please enter two numbers: ');
   readln(a, b);
   if a > b then
   begin
      writeln('then part');
      m := a
   end
   else
   begin
      writeln('else part');
      m := b
   end;
   writeln('The max of ', a, ' and ', b, ' is ', m)
end.