{$codepage UTF8} VAR a,b:Longint; Cond :boolean; BEGIN Write('a : '); Readln(a); Write('b : '); Readln(b); Cond:=a>b; if Cond then Writeln('el mayor es : ',a) else Writeln('el mayor es : ',b); Readln END.