Help me, please 1) составьте программу, проверяющую, является ли введенное число четным или нечетным.

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