вычислите массовую долю кальция в карбонате кальция

Помогите исправить ошибки и написать блок-схему.

Задание: Имеется массив А из N произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.

Листинг программы:

Program Massiv;

Const n=10;

Var A:array [1..4] of integer;

I, c, c2, c3: integer;

Begin

For i=1 to N do begin

Readln (a[i]); If (a[i]=0 then inc(c)

Else if ([ai]<0) then inc(c2)

Else inc (c3);

End;

Writeln (`нулевые:`,c);

Writeln (`отрицательные:`,c2);

Writeln (`положительные:`,c3);

End.

 найти площадь треугольника :

S-ABC

а)AB= 14      CH=   5

б)AB=1,5       CH=4

в)AB=4       CH= 8

 высота -CH

найти по теореме пифогора:

BC, если AB=7, AC=6

  найти  cosA , tgB , sinB

в прямоугольнике ABC, если AB= 5       BC=4 

Постройте график функции ( во вложениях) и определите при каких С прямая y=С будет иметь с графиком единственную общую точку.

ПОЖАЛУЙСТА ОБЪЯСНИТЕ,НАПИШИТЕ ПОДРОБНОЕ РЕШЕНИЕ,ОТМЕЧУ ВАШЕ РЕШЕНИЕ КАК ЛУЧШЕЕ.СКОРО ЭКЗАМЕН.HELP

В окружности проведены две взаимно перпендикулярные хорды. Каждая из них делится другой хордой на отрезки,равные 3 и 7. Найдите расстояниеот центра окружности до каждой из хорд