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

Ну? как то так 1) на pascal abc var i: integer; n: real; a: string; begin readln(a); for i: =1 to length(a) do if 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.

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен