Задача 7 Урок 9

Задача 7 Урок 9

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)

var A,B:integer;
begin
  writeln('Input first number');
  readln(A);
  writeln('Input second number');
  readln(B);
  if (A > B) then
     writeln('Max number is ', A)
  else
     if (B > A) then
         writeln('Max number is ', B)
     else writeln('Numbers are equal');
  readln();
end.