На вход программы произвольные алфавитно-цифровые символы. ввод этих символов заканчивается точкой. требуется напечатать последовательность строчных букв ('a' 'b' 'z') из входной последовательности и частот их повторения. печать должна происходить в алфавитном порядке. python входные данные fhbkbfshfm. выходные данные b 2 f 3 h 2 k 1 m 1 s 1
var s:string;
a:array['a'..'z'] of integer;
i:integer; c:char;
begin
writeln('Введите строку:');
readln(s);
for c:='a' to 'z' do a[c]:=0;
for i:=1 to length(s) do
if (s[i]>='a')and(s[i]<='z') then a[s[i]]:=a[s[i]]+1;
for c:='a' to 'z' do
if a[c]>0 then writeln(c,' ',a[c]);
end.