Вводится последовательность целых чисел, по абсолютной величине меньших или…

Program project1; usescrt,math; const n=10; var s: real; i,f,m: byte; a: array [1… 10] of real; begin m: =0; for i: =1 to n do begin writeln ('vvedite ',i,' cifru'); readln (a[i]); end; for i: =1 to n do begin if a[i]<0 then inc (f); end; for i: =1 to n do begin if a[i]=0 then inc (m); if m<>0 then s: =s+a[i]; end; writeln ('kolichestvo otricatelnih: ',f: 2); writeln ('summa vseh posle 0: ',s: 2:2); readln; end.