c = 0
while True:
n = int(input())
if n % 9 == 0 and n % 2 == 0:
c += 1
print(c)
Pascal
var
a:array of integer;
i, n:integer;
begin
writeln('введите числа:'); n:=1; i:=0;
while true do begin
readln(n);
if n<>0 then begin
setlength(a, length(a)+1);
a[length(a)-1]:=n;
if (n mod 2 = 0) and (n mod 9 = 0) then
inc(i)
end
else
break
end;
writeln('');
writeln(i);
end.
