Составьте программу в pascal abc, которая посчитает количество двоек в числе​

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.