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

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

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


End.