Программирование циклов. Составьте программу.
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. Вот так, программа работает.