Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе

Var a, k, n, m:integer;

begin

writeln ('Введите число') ;

readln (a) ;

m:=a; k:=0; n:=0;

while a0 do begin

if a mod 10=2 then k:=k+1

else if a mod 10=0 then n:=n+1;

a:=a div 10;

end;

writeln ('В числе ', m,' ', k,' двоек и ', n,' нулей') ;

readln

end.