function max(x :integer; y :integer) :integer;
  begin
    if x > y then
      max:= x
    else
      if x < y then
        max:= y
      else
        writeln('×èñëà ðàâíû!');
  end;
  
var
  a, b :integer;

begin

  write('Ââåäèòå äâà öåëûõ ÷èñëà ÷åðåç ïðîáåë: ');
  readln(a, b);
  writeln(max(a,b));

end.