HELP ME, PLEASE 1) Составьте программу, проверяющую, является ли введенное число четным...

Question

HELP ME, PLEASE
1) Составьте программу, проверяющую, является ли введенное число четным или нечетным.

Answer 1

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