a>b

Program logicander;


Uses WinCrt;
Var
    a, b : integer;
begin


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


If a>b then
WriteLn ( 'Mayor es a' )
else
WriteLn ( 'Mayor es b' )


end.