Определить является ли число a чётным (алгоритм на языке прогр)

Program chisla;
var a,b:integer;
begin
read (a);
if 
b=a div 2 then
write('Число четное') else
write('Число нечетное');
end.