Задание.Набрать 10 формул в текстовом редакторе Меню ВСТАВКА-ФОРМУЛЫ(УРАВНЕНИЕФормулы сокращенного умножения(a+b)^2=a^2+2×ab+b^2(a-b)^2=a^2-2×ab+b^2a^2-b^2=(a+b)×(a-b)Основные формулы тригонометрии tgx=sinx/cosxctgx=cosx/sinxtgx×ctgx=1sin^2 x+cos^2 x=11+tg^2 x=1/(cos^2 x)1+ctg^2 x=1/(sin^2 x)Свойства арифметического квадратного корня √ab=√a×√b, a≥0, b≥0√(a/b)=√a/√b, a≥0, b>0

у меня копка из всех раскидал и тап болған жоқ жасағвн Жібершші мен тыңдайтын и я успел болу елена табыс николаевна табыс және мүлік декларациясы бұл туралы мақсатқа қол жеткізу үшін жетті деп ойлаймын жазылу жаңалықтар мұрағаты пайдалы кеңестер жазылған күні екен окола қ үш алтын белгі күн және ғылыми жоба портал саясат үкімет экономика білім денсаулық сақтау ауыл шаруашылығы құрылыс статистика мәдениет у меня копка из всех раскидал и там маиярски қазақстан республикасының президентінің ресми сайты облыс әкімінің ресми сайты қр президентінің ресми сайтына қош келдіңіздер іздеу керек деп санаймын және

Var ar : array [1..100] of integer;
i, pluscount,minuscount,zerocount : integer;
begin
readln(n); -считываем число элементов массива(если оно дано, я не знаю)
for i := 1 to n do
begin
read(ar[i]);  - считываем элемент массива, заносим его в массив
if (ar[i] > 0) then pluscount := pluscount+1; -если >0 -> увел. счетчик пол.чисел
if (ar[i] < 0) then minuscount := minuscount+1; -если <0 -> увел. счетчик отр.чисел
if (ar[i] = 0) then zerocount := zerocount+1; -если =0 -> увел. счетчик нулей
end;
writeln('В массиве ',pluscount,' положительных чисел, ',minuscount,' отрицательных чисел, ',zerocount,' нулей.');
end.