Определить максимальное значение среди чисел x и y, минимальное значение среди чисел a и b. Числа x и y, a и b вводятся с клавиатуры. Результат работы программы выводится на экран

var x, y, a, b:integer;

function min (x, y:integer) : integer; / / функция для определения минимума

begin

if (x>y) then min:=y / /если х больше, то вывести у

else min:=x; / / иначе вывести х

end;

function max (x, y:integer) : integer; / /функция определения максимума

begin

if (x>y) then max:=x / / если х больше, то вывести его

else max:=y; / / если у больше, то вывести его

end;

begin

write ('введите х и у'); / /запрос данных на ввод

read (x, y);

write ('введите a и b'); / /запрос данных на вывод

read (a, b);

writeLn (max (x, y)); //вывод данных

writeln (min (a, b)); / /вывод данных

end.