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

uses crt;var a,b,c:real;BeginClrScr;writeln ('введи число');read (a);writeln ('введи число');read (b);writeln ('введи число');read (c);writeln('самое большое');if (a>b) and (a>c) thenwriteln(a)else if (b>a) and (b>c) thenwriteln (b)elsewriteln (c);End.