function sum(c: integer): integer; var s: string; i, r: integer; begin r := 0; s := inttostr(c); for i := 1 to length(s) do r := r + strtoint(s[i]); result := r; end;
begin readln(a, b); if (sum(a) > sum(b)) then writeln('A > B') else if (sum(a) = sum(b)) then writeln('A = B') else writeln('A < B'); end.
function sum(c: integer): integer;
var s: string;
i, r: integer;
begin
r := 0;
s := inttostr(c);
for i := 1 to length(s) do
r := r + strtoint(s[i]);
result := r;
end;
begin
readln(a, b);
if (sum(a) > sum(b)) then writeln('A > B')
else if (sum(a) = sum(b)) then writeln('A = B')
else writeln('A < B');
end.
I ♥ functions :)