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.