Дано натуральное число : найти в нем общее количество цифр 1 и 2. на языке паскаля

Var a,n : Integer;
Begin
  Readln(a);
  n:=0;
  While a>0 do
  Begin
   Inc(n,Ord((a mod 10) in [1,2]));
   a:=a div 10;
  end;
  Writeln(n);
end.