4) 3 путя так как доступно БВД
+,тоже не понимаю как програмировать
Var
n, x, k, i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(x);
if x mod 10 =6 then
inc(k);
end;
writeln(k);
end.
program zadacha;
var
a:integer;
begin
read(a);
if (a>=10)and(a<=20)then
write('Принадлежит')
else
write('Не принадлежит')
end.