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

спасибо

Program prog;uses crt;var a,b: real;beginclrscr;write('a = ');readln(a);write('b = ');readln(b);if a<b then writeln(a,', ', b);if a>b then writeln(b,', ', a);if a=b then writeln(a,', ', b,' -  числа равны'); end.