Var
a, n, i, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
if(a <= 17) then c := c + 1;
end;
writeln(c);
end.
For (i = 1; i <= 20; i++) {
if (i mod 5 = 0)
print(i);
}
Написано на С подобном псевдокоде.
<span>для выбора одного из нескольких вариантов </span>