Программирование циклов. Составьте программу.

C клавиатуры вводят 6 целых чисел. Определите количество четных чисел в этом наборе.

Program ten;

const n=2;

Var a, b, c, d, e, f, p:integer;

Begin

Write ('Введите число a ') ; Read (a) ;

Write ('Введите число b ') ; Read (b) ;

Write ('Введите число c ') ; Read (c) ;

Write ('Введите число d') ; Read (d) ;

Write ('Введите число e ') ; Read (e) ;

Write ('Введите число f ') ; Read (f) ;

p:=0;

If a mod n = 0 Then P:=p+1;

If b mod n = 0 Then P:=p+1;

If c mod n = 0 Then P:=p+1;

If d mod n = 0 Then P:=p+1;

If e mod n = 0 Then P:=p+1;

If f mod n = 0 Then P:=p+1;

Write ('количество четных чисел = ', p) ;

end.

Вот так, программа работает.