Program mayor; Uses crt; Var a, b : Integer; Begin Clrscr; Write('Ingrese el primer n£mero : '); Readln(a); Write('Ingrese el segundo n£mero : '); Readln(b); If a>b then Writeln('El mayor es : ',a) Else Writeln('El mayor es : ',b); Readln; End.