Var a:integer;
b:boolean;
begin
readln(a);
if a mod 10 = a div 10 then writeln(not b)
else writeln(b);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.