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

Var

a, b, x, y, max, min: real;

begin

write ('Введите x и y: ') ;

read (x, y) ;

write ('Введите a и b: ') ;

read (a, b) ;

if a < b then

begin

min : = a;

end

else min : = b;

if x > y then

begin

max : = x;

end

else max : = y;

writeln ('max для x и y: ', max) ;

writeln ('min для a и b: ', min) ;

end.