Program mayor; Uses crt; Var a, b, c, d, e, may : Integer; Begin Clrscr; Write('Ingrese el 1§ n£mero : '); Readln(a); Write('Ingrese el 2§ n£mero : '); Readln(b); Write('Ingrese el 3§ n£mero : '); Readln(c); Write('Ingrese el 4§ n£mero : '); Readln(d); Write('Ingrese el 5§ n£mero : '); Readln(e); If a>b then may :=a Else may :=b; If c>may then may :=c; If d>may then may :=d; If e>may then may :=e; Write('El mayor es: ',may); Readln; End.