Дано предложение. Определить долю в процентах букв а в нем(pascal abc)

чем смогла, помогла))

спасибо большое))))))

ну? как то так1) на pascal ABCvar i:integer;n:real;a:string;beginreadln(a);for i:=1 to length(a) doif a[i]='a' then n+=1;n:=(n/length(a)*100);writeln(n:2:1);end.2) на pascal ABCvar i,n:integer;a:string;beginreadln(a);for i:=1 to length(a) doif (a[i]='p') and (a[i+1]='o') then n+=1;writeln(n);end.