[stil]

Код:

const c='0123456789';
var i,j,k:integer;
    s:string;
begin
write('s=');readln(s);
for i:=1 to length(c) do begin
  k:=0;
  for j:=1 to length(s) do
    if c[i]=s[j] then Inc(k);
  if k<>0 then writeln(c[i],'=',k);
end;
readln;