El Mayor de 5 Numeros

program mayor;
uses wincrt;

var
a,c,b,d,e:integer;
begin
writeln('*****Mayor de 5 Numeros*****');
writeln('');
writeln('Introduzca un primer numero:');
readln(a);
writeln('Introduzca un segundo numero:');
readln(b);
writeln('Introduzca un tercer  numero: ');
readln(c);
writeln('Introduzca un cuarto  numero: ');
readln(d);
writeln('Introduzca un quinto  numero: ');
readln(e);
if (a>b) and (a>c) and (a>d) and (a>e) then
write('El Mayor es ', a)
else
if (b>a) and (b>c) and (b>d) and (b>e) then
write('EL Mayor es ', b)
else
if (c>a) and (c>b) and (c>d) and (c>e) then
write('EL Mayor es ', c)
else
if (d>a) and (d>c) and (d>b) and (d>e) then
write('EL Mayor es ', d)
else
if (e>a) and (e>c) and (e>d) and (e>b) then
write('EL Mayor es ', e);


end.