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