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

Program prog;
uses crt;
var a,b: real;

begin
clrscr;

write(a = );
readln(a);
write(b = );
readln(b);

if aif a>b then writeln(b,, , a);
if a=b then writeln(a,, , b, -  числа равны);

 end.