Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4 цифру и выяснить является нечетным. зарание спасибо.

var a:integer;b:boolean;beginreadln(a);writeln(a div 10 mod 1000);if a mod 2 <> 0 then b:=true;writeln(b);end.