Написать программу четности и нечётности числа. На языке Паскаль

var a:integer;beginwriteln('введите число');readln(a);if (a mod 2=0) then writeln('четно') else writeln('нечетно');end.

var a:integer;begin;readln(a);if odd(a)=true then writeln('Нечётное') else writeln('Чётное');end.