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