var
a, n : integer;
begin
write('введите число: ');
readln(a);
while a > 0 do begin
if a mod 10 = 2 then n += 1;
a := a div 10;
end;
writeln('двоек: ', n);
end.
