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

Question

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

Answer 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.