Склавиатуры вводится три числа вывести их на экран в порядке возрастания

Uses crt;
var a,b,c:real;
Begin
ClrScr;
writeln ('введи число');
read (a);
writeln ('введи число');
read (b);
writeln ('введи число');
read (c);
writeln('самое большое');
if (a>b) and (a>c) then

writeln(a)
else if (b>a) and (b>c) then
writeln (b)
else
writeln (c);

End.