Определить максимальное значение среди чисел 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.