Var n,k,i:integer;
Begin
K:=0;
For i:=1 to 10 do begin
Read(n);
If (n>2)and(n<12)and(n mod 2 =0) then
K:=k+1;
End;
If k=0 then write('NO')
Else write(k)
End.
Объяснение:
