Составьте программу которая определяет является ли целое число введённое с клавиатуры чётным или нечётным и выводит информацию на экран

program number; var  a: integer;begin  writeln('Введите число');  readln(a);  if a and 1=1 then    writeln('введённое число нечётное')  else    writeln('введённое число чётное');end.{Тест 5 - введённое число нечётное; 10 - введённое число чётное}