Определить сумму отрицательных элементов последовательности

var
a,n,s,i:integer;
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do
begin
writeln('Введите очередное число');
readln(a);
if a<0 then s:=s+a;
end;
writeln(s);
end.

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,s:integer;
begin
clrscr;
writeln (' vvedite kol -vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
writeln (' Otricatelnye elementy ');
s:=0;
for i:=1 to n do
  if x[i]<0 then begin
                 write (x[i]:3);
                 s:=s+x[i];
                 end;
writeln;
writeln (' Summa = ',s);
Readln
end.

uses crt;
var i,n,s:integer;
    a:array [1..100] of integer;
 
begin
write('Љ®«-ў® н«-в®ў ¬*ббЁў*=');
readln(n);
writeln('‚ў®¤ ¬*ббЁў*');
for i:=1 to n do read(a[i]);
s:=0;
writeln('‚лзЁб«Ґ*ЁҐ б㬬л');
for i:=1 to n do
                begin
                if a[i]<0 then s:=s+a[i];
                end;
writeln('s=',s);
 
Readln
end.