Дано двузначное число Определить одинаковы ли его цифры

Question

Дано двузначное число Определить одинаковы ли его цифры

Answer 1

Var a:integer;
b:boolean;
begin
readln(a);
if a mod 10 = a div 10 then writeln(not b)
else writeln(b);
end.