la caracteristica de este programa es que se coloca un if then dentro de otro if then
Este programa consiste en hallar el numero mayor entre 3
numeros introducidos por el usuario

program Project7;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }

Writeln('ingrese 3 numeros para calcular el mayor :');
Read(a);
read(b);
Read(c);
Write('El mayor es : '); {el numero mayor no siempre estara en la
                         misma variable pero siempre mostraremos el
                         mayor por lo tanto esta frase se escribira
                         si o si aunque sean todos iguales
                        }
if a>b then     //si a es mayor b
begin                      //      y
    if a>c then           //si a es mayor a c
    begin                 //muestra lo q contiene a
    Writeln(a);
    end
    else                  //si a NOOOO es mayor a c
    begin                 //muestra lo q contiene c
    Writeln(c);           //xq si a>b y a<c entonces c es el mayor
    end;

end
else           //si a NOOO es mayor a b
begin                     //   y
    if b>c then           //si b es mayor a c
    begin                 //muesrea lo q contiene b
    Writeln(b);
    end
    else                  //si b NOOO es mayor c
    begin
    Writeln(c);           //muestra lo q contiene c
    end;

end;
readln;
readln;
end.