В данном фрагменте программы выполняется:
A) поиск четных значений
Б) подсчет суммы элементов, больших 7
В) подсчет количества элементов,больших 7
Г) подсчет количества элементов, кратных 7.
a:=0;
For i:=1 ti 10 do
Begin
Readln(x);
If x>7 Then a:=a+1;
End;
Writeln(a);
