var a,b:integer;beginreadln(a,b);if (a>b) then writeln('У а больше денег чем у b')else if (b>a) then writeln('У b больше денег чем у а')else if(a=b) then writeln('Денег поровну');readln;end.
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('У а больше денег чем у b')
else if (b>a) then writeln('У b больше денег чем у а')
else if(a=b) then writeln('Денег поровну');
readln;
end.