■ Pascal 005 ► Mayor de dos números

Ejercicio 005: Determinar el mayor de dos números.

Program Pas_005;
Uses crt;
Var
     num1, num2 : integer;
Begin
     ClrScr;
     WriteLn ('Ingresa primer número');
     ReadLn (num1);
     WriteLn ('Ingresa segundo número');
     ReadLn (num2);
     if num1 > num2 then
          Write ('El mayor es: ',num1)
     else
          Write ('El mayor es: ',num2);
     ReadKey;

End.