Определить максимальное значение среди чисел x и y,минимальное значение среди чисел a и b.числа x и y, a и b вводятся с клавиатуры.результат работы программы выводится на экран
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);
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.