Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем. желательно в Basic. но можно и паскаль

var a,c,l,w1,w2,w3 : longint; begin   readln(a,c);   w1:=0;   w2:=0;   w3:=0;   l:=a mod 10;   while a>0 do   begin      if a mod 10=c then w1:=w1+1;      if a mod 10=l then w2:=w2+1;      if a mod 2=0 then w3:=w3+1;      a:=a div 10;   end;   writeln(w1,' ',w2,' ',w3); end.