Составьте программу для нахождения чётных и нечётных чисел примите что число х целое число.Помогите пожалуйста, пожалуйста ​

program Main;
uses crt;
var a,b:integer;
begin
clrscr;
writeln('Введите целое число: ');
readln(a);
b:= a mod 2;
if
b>0 then
writeln('Число нечётное')
else
writeln('Число чётное');
end