1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program cnt;
var
x,n,k:integer;
begin
n:=1; {nomer elementa posledovatelnosti}
k:=0; {kolichestvo chetnyh elementov s nomerami,kratnym 5}writeln('введите число');
repeatbeginreadln(x);
if(x mod2=0)and(n mod5=0)then
inc(k);
n:=n+1;
end;
until x=0;
writeln('k=',k);
readln;
end.
За это 5 получил!