Дано предложение. определить долю в процентах букв а в нем(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.

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.