Помогите пожалуйста !дано натуральное число : найти в нем общее количество цифр 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.