Помогите составить программу ** языке паскальСоставить программу разветвляющей...

Question

Помогите составить программу на языке паскаль

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

Answer 1

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