Program minmax;
var x,y: integer;
BEGIN{1}
  writeln('Введите 2 числа');
  readln(x,y);

  If (x>y) then
   begin{2}
    writeln('число ',x,' максимум');
   end{2}
  else
   begin{3}
    if (y>x) then
     begin{4}
      writeln('число ',y,' максимум');
      end{4}
     else
      begin{5}
       writeln(y,'=',x);
      end{5};
     end{3};
END{1}.