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

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?