1-
program qq;
var
s: string;
i, count: integer;
this_c: char;
begin
readln(s);
while (length(s) > 0) do begin
this_c := s[1];
count := 0;
while(pos(this_c, s) <> 0) do begin
delete(s, pos(this_c, s), 1);
count := count + 1;
end;
writeln('"', this_c, '": ', count);
end;
writeln;
end.
2-надо думать(
