pro-Gramas tu biblioteca de programacion

En este programa también vamos a obtener el mayor menor os si son iguales, pero en este caso van a ser tres números.  El fin de este programa es  aprender el manejo de los if.

program tres_num;
uses
    crt,dos;
var
   a,b,c:real;
begin
     clrscr;
     write(' escribe 1 no ');
     readln(a);
     write(' escribe 2 no ');
     readln(b);
     write(' escribe 3 no ');
     readln(c);
if
 (a > b) and (b > c)
then
begin
     clrscr;
     write(a:4:2,' es el mayor , ');
     writeln(c:4:2,' es el menor ');
     readln
end
else
if
  (b > a) and (a > c)
then
begin
     clrscr;
     write(b:4:2,' es el mayor , ');
     writeln(c:4:2,' es el menor ');
     readln
end
else
if
  (a > c) and (c > b)
then
begin
     clrscr;
     write(a:4:2,' es el mayor , ');
     writeln(b:4:2,' es el menor ');
     readln
end
else
if
  (c > a) and (a > b)
then
begin
     clrscr;
     write(c:4:2,' es el mayor , ');
     writeln(b:4:2,' es el menor ');
     readln
end
else
if
  (b > c) and (c > a)
then
begin
     clrscr;
     write(b:4:2,' es el mayor , ');
     writeln(a:4:2,' es el menor ');
     readkey
end
else
if
  (c > b) and (b > a)
then
begin
     clrscr;
     write(c:4:2,' es el mayor , ');
     writeln(a:4:2,' es el menor ');
     readkey
end
else
if
  (a > b) and (b = c)
then
begin
     clrscr;
     write(a:4:2,' es el mayor , ');
     writeln(b:4:2,' y ',c:4:2,' son los menores');
     readkey
end
else
if
  (b > a) and (a = c)
then
begin
     clrscr;
     write(b:4:2,' es el mayor , ');
     writeln(a:4:2,' y ',c:4:2,' son los menores');
     readln
end
else
if
  (b < a) and (a = c)
then
begin
     clrscr;
     write(a:4:2,' y ',c:4:2,' son los mayores , ');
     writeln(b:4:2,' es el menores');
     readln
end
else
if
  (c > a) and (a = b)
then
begin
     clrscr;
     write(c:4:2,' es el mayor , ');
     writeln(a:4:2,' y ',b:4:2,' son los menores');
     readln
end
else
if
  (a = b) and (a > c)
then
begin
     clrscr;
     write(a:4:2,' y ',b:4:2,' son los mayores , ');
     writeln(c:4:2,' es el menor');
     readln
end
else
if
  (a = b) and (a < c)
then
begin
     clrscr;
     write(a:4:2,' y ',b:4:2,' son los menores , ');
     writeln(c:4:2,' es el mayor');
     readln
end
else
begin
     clrscr;
     write(a:4:2,', ',b:4:2,' y ',c:4:2,' son iguales ');
     readkey
end
end.