nr_poz&n.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program numaratoare;
{Se citesc de la tastatura n nr. .Sa se scrie cate sunt pozitive si cate
sunt negative}
const
     ct=100;
var a:array[1..ct] of integer;
    n,i,k,poz,neg:integer;
begin
read(n);
poz:=0;
neg:=0;
for i:=1 to n do
                begin
                     write('a[',i,']= ');
                     read(a[i]);
                     if a[i]=0 then poz:=poz+0;
                                    neg:=neg+0;
                     if a[i]>0 then poz:=poz+1
                               else neg:=neg+1;
                end;
writeln('in nr. date se gasesc ',poz,' numere pozitive si ',neg, ' nmere negative');
end.