uses crt;
var s,dem:int64;i,n:longint;a:array[1..99]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  dem:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]<0)then
                begin
                 inc(dem);
                 s:=s+sqr(a[i]);
                end;
        end;
  writeln('dem=',dem);
  write('s=',s);
 readln
end.

uses crt;
var a:array[1..101]of longint;
n,s,i,d:longint;
begin
clrscr;
write('n=');
readln(n);
i:=0;
repeat
begin
i:=i+1;
write('phan tu ',i,':');
readln(a[i]);
if a[i]<0 then
    begin
    s:=s+sqr(a[i]);
    d:=d+1;
    end;
end;
until
i>=n;
writeln('phan tu am',d:2);
writeln('tong phan tu am',s:2);
readln
end.