Объяснение:
Я думаю что так долго думал !
var k: integer;
begin
read(k);
write(k div 10 mod 10 mod 2 <> 0);
end.
