Дано число N. Определите, сколько цифр 2 содержится в его троичной записи. Написать программу

На паскале.var N, N2:integer;beginrepeatwrite('Введи целое положительное число '); readln(N);until N>0;N2:=0;while(N>0)do beginif(N MOD 3=2)then Inc(N2);N:=N DIV 3;end;writeln('В троичной записи числа ',N,' содержится ',N2,' двоек');end.