Определить максимальное значение среди чисел x и y,минимальное значение среди чисел a и...

Question

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

Answer 1

//Ну это, это-то можно понять без сторонней помощи!
//Pascal ABC.NET 3.1 сборка 1219

Var
 x,y,a,b:real;
begin
 read(x,y,a,b);
 if x>y then writeln('Max=',x) else writeln('Max=',y);
 if aend.

Пример ввода:
1
2
3
4
Пример вывода:
Max=2
Min=3