Помогите пожалуйста! Надо написать 2 программы для паскаль abc
1)Напишите программу которая определяет то в последовательности вводимой с клавиатуры нет четных чисел
2) Напишите программу которая определяет количество чисел в последовательности удовлетворяющему следующему условию: число кратно 5 и оканчивается на 0

1Var a : Integer;BeginWriteln('Введите число');Readln(a);If mod(a/2)=0 thenWriteln('yes') elseWriteln('no');End.Вторую не смогу.Возможно, есть ошибки.Просто давно не писала программы.