a>b a>c b>a b>c c>a c>b

Program logicander;


Uses WinCrt;
Var
    a, b, c : integer;
begin


WriteLn ( 'Ingrese a' );
ReadLn (a);
WriteLn ( 'Ingrese b' );
ReadLn (b);
WriteLn ( 'Ingrese c' );
ReadLn (c);


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' )


end.