дан целочисленный массив из 30 элементов. Вывести количество отрицательных, положительных и равных нулю элементов (массив записать в 1. txt)

Var t:text;

a:array[1 ... 30] of integer;

i, m, b, r:integer;

begin

assign (t,'output. txt') ;

rewrite (t) ;

for i:=1 to 30 do begin

read (a[i]) ;

if a[i]>0 then b+=1

else if a[i]<0 then m+=1

else r+=1;

write (t, a[i],' ') ;

end;

write (m,' ', b,' ', r) ;

close (t) ;

end.

Program i5;

var

s, d, r, i: integer;

a:array [1 ... 30] of integer;

begin

for i:=1 to 30 do

readln (a[i]) ;

s:=0;

d:=0;

r:=0;

for i:=1 to 30 dot

begin

if a[i]<0 then

s:=s+1;

if a[i]>0 then

d:=d+1;

if a[i]=0 then

r:=r+1;

end;

writeln (s,'_', d,'_', r) ;

end.