С клавиатуры вводятся два вещественных числа. Выведите через запятую в одной строке сначала меньшее из них, а потом большее.

var

x, y : real; / / объявляем две переменные, тип - вещественное число.

begin

writeln ('Введите два вещественных числа: '); / / выводим строку на экран.

readln (x, y); / / считываем значение двух чисел, введенных с клавиатуры.

if (x > y) then / / если первое число больше второго.

writeln (y,', ', x) / / выводим строку на экран.

else / / если второе число больше либо равно первому.

writeln (x,', ', y); / / выводим строку на экран.

end.