[ChinYan]

Код:

Var
S:string;
i,k:integer;
c: array [0..9] of integer;
begin
{Ввести строку}
for i:=1 to Length(S) do
 begin
  for k:=0 to 9 do
    if S[i] = IntToStr(k) then inc(c[i]);
 end;
for i:=0 to 9 do
 writeln(i,' = ',c[i]);
readln;
end.