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

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.