Дано четырехзначное число. если число десятков больше чем число единиц то вывести 0 иначе 1.

Var n:integer;
begin;
readln(n);
if (n mod 100-n mod 10) div 10>n mod 10 then writeln('0') else writeln('1');
end.