Циклические алгоритмы.Составьте блок- схему для решения следующих задач:1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритмаИ НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ

Var a,i,b,m:integer;
begin
for i:=1 to 100 do begin
read(a);
if a>0 then inc(b);
if aend;
writeln(b, ,m);
end.

var i,a,r:integer;
begin
for i:=1 to 10 do begin
read(a);
r+=a*a;
end;
writeln(r);
end.