clrscr;
write('Zadaj prve cislo: ');
readln(a);
write('Zadaj druhe cislo: ');
readln(b);
write('Zadaj tretie cislo: ');
readln(c);
if (a > b) and (b > c) then
writeln(a:5:2, ', ',b:5:2 ,', ', c:5:2)
else if (a > c) and (c > b) then
writeln(a:5:2,', ',c:5:2,', ',b:5:2)
else if (b > a) and (a > c) then
writeln(b:5:2,',',a:5:2,', ',c:5:2)
else if (b > c) and (c > a) then
writeln(b:5:2,', ',c:5:2,', ',a:5:2)
else if (c > a) and (a > b) then
writeln(c:5:2,', ',a:5:2,',',b:5:2)
else
writeln(c:5:2,', ',b:5:2,', ',a:5:2);
readln;