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

Пользователь вводит два числа, найдите из них максимальное.

Ссылка
Решение

program U9Z5;

var a,b:integer;

begin
  Writeln('Vvedite chislo a ');
  Writeln('Vvedite chislo b ');
  readln(a,b);
  if (a > b) then
     write('a - max')
  else
      write('b -max');
  readln();
end.