Program logicander;
Uses WinCrt;
Var
a, b, c, d, e : integer;
Begin
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) and (a>d) and (a>e) then
WriteLn ( 'Mayor es A' )
Else
If (b>a) and (b>c) and (b>d) and (b>e) then
WriteLn ( 'Mayor es B' )
Else
If (c>a) and (c>b) and (c>d) and (c>e) then
WriteLn ( 'Mayor es C' )
Else
If (d>a) and (d>b) and (d>c) and (d>e) then
WriteLn ( 'Mayor es D' )
Else
If (e>a) and (e>b) and (e>c) and (e>d) then
WriteLn ( 'Mayor es E' )
end.
