Помогите очень срочно! 315. По данному натуральному n вычислите сумму 1^2 + 2^2+...+n^2. Вводится единственное число n. Необходимо вывести вычисленную сумму. 346.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 347.Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.

Буду по порядку добавлять.

1)

uses crt;var n,s,i:integer;beginclrscr;write('n=');readln(n);s:=0;for i:=1 to n dos:=s+sqr(i);write('s=',s);end.

2)

uses crt;var a:array [1..100] of real;n,i,p,o,l:integer;beginclrscr;write('n=');readln(n);write('a[n]:');for i:=1 to n dobeginreadln(a[n]);if a[n]>0 then p:=p+1;if a[n]<0 then o:=o+1;if a[n]=0 then l:=l+1;end;writeln(l,p,o);end.

3)

uses crt;var a:array [1..100] of real; i,n:integer;beginclrscr;write('n=');readln(n);write('a[n]:');for i:=1 to n doread(a[i]);for i:=1 to n doif (a[i]=0) then writeln('YES')else writeln('NO');end.