Question

Помогите пожалуйста
Информатика 8 класс
​

Answer 1

var

 a, i, chet: integer;

begin

 chet := 0;

 Writeln('Введите 5 чисел: ');

 for i := 1 to 5 do

 begin

   Read(a);

   if (a mod 3 = 0) and (Odd(a))  then

     Inc(Chet);

 end;

 Write('Колличество чисел: ', Chet);

end.