Вводятся два вещественных числа. Вывести сначала меньшее из них, а потом большее - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Вводятся два вещественных числа. Вывести сначала меньшее из них, а потом большее»

Листинг программы

program numbers;
 
var
a,b: real;
 
begin
write('a=');
read(a);
write('b=');
read(b);
if a<b then
writeln('наибольшее число = ',b,'наименьшее число',a);
begin
if a>b then
writeln('наибольшее число = ',a,'наименьшее число',b);
end;
 
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Вводит два вещественных числа с помощью функции read.
Объявляет две переменные a и b типа real для хранения введенных чисел.
Выводит на экран сообщение a=, затем считывает и сохраняет введенное значение a в переменную a.
Выводит на экран сообщение b=, затем считывает и сохраняет введенное значение b в переменную b.
Сравнивает значения переменных a и b с помощью оператора if.
Если a меньше b, выводит на экран сообщение наибольшее число =, затем выводит значение b, а затем значение a.
Если a больше b, выводит на экран сообщение наибольшее число =, затем выводит значение a, а затем значение b.
Конец программы.