Составить программу на языке паскаль составить программу разветвляющей структуры написать прогрумму, которая проверяет, является ли введенное с клавиатуры число четным и положительным

Var a:integer;
begin
 read(a);
 if a mod 2=0 then writeln('Число четное')
 else writeln('Число нечетное')
end.