Прикладываите свои фаилы
Не у всех есть тетрадь по информатике за 4 класс
Const l:array[1..26] of char = ('a','b','c','d','e','h','i','j','k','l','m','n','o','p','q','r','f','s','t','u','v','w','x','i','y','z');
Var
s:string;
j,i,k:integer;
a:array [1..100] of integer;
begin
readln(s);
k:=0;
For i:=1 to length(s) do
for j := 1 to 26 do
If s[i] = l[j] then
begin
a[j]:=a[j]+1;
end;
for i:=1 to 26 do begin
if a[i]<>0 then
writeln(l[i], ' = ', a[i]);
end;
<span>end.</span>
ВОТ ЧТО ПОЛУЧИТСЯ
begin B:=A[MAXI,J]; A[MAXI,J]:= <span>PAR(var A:ARR):</span>