Ответы и объяснения

Лучший Ответ!
2014-04-13T17:12:56+04:00
Var a:integer;
b:boolean;
begin
readln(a);
if a mod 10 = a div 10 then writeln(not b)
else writeln(b);
end.