Урок 14.1 Задача 2

Урок 14.1 Задача 2:

Напишите процедуру, которая получает на вход два целых числа и выводит на экран то, которое больше.

var x, y: integer;
procedure sravn(a, b: integer);   // процедура, принимает два числа, сравнивает и выводит большее
begin
  write('Ответ: ');
  if a > b then
    write(a)
  else
    write(b);
end;

begin
  writeln('Введите два числа: ');
  readln (x, y);
  sravn(x, y);                     // передаем значения в процедуру 
  readln ();
end. 

Вывод в консоли:

Введите два числа:
-2
14
Ответ: 14