abcde

Program abdcde;
Uses WinCrt;
Var a,b,c,d,e:integer;
Begin
Writeln ('Quien es mayor');
Writeln ('Ingrese a');
Readln (a);
Writeln ('Ingrese b');
Readln (b);
Writeln ('Ingrese c');
Readln (c);
Writeln ('Ingrese d');
Readln (d);
Writeln ('Ingrese e');
Readln (e);
if (a<b)and (a<c)then
writeln ('mayor es a')
else
if (b<a) and (b<c) then
Writeln ('mayor es b')
else
if (c<a) and (c<b) then
Writeln ('mayor es c')
else
if (d<a) and (d<c)then
Writeln ('mayor es d')
else
if (e<a) and (e<d) then
Writeln ('mayor es e')
End.