Исполняемый, хотя сейчас вместо com используется exe
<span>Действие объекта - это, что может делать сам объект или что могут
делать с данным объектом. Для характеристики объекта совершенно не
важно, сам объект выполняет действие или он испытывает воздействие со
стороны другого объекта. Дейтсвие, применяемое к объекту, приравнивается
к действию, выполняемому объектом.</span>
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (a<10)and(a mod 3=0) then k:=k+1;
readln(a);
end;
writeln(k);
end.
Пример:
12
5
34
9
8
6
0
<span>2</span>