GİRDİĞİNİZ 10 SAYIDAN POZİTİF VE NEGATİFLERİN SAYISININ PROGRAMI

uses crt;
var
   I:byte;
   Sayi:longInt;
   Ps,Ns:byte;
begin
     Ns:=0;Ps:=0;
     begin
          clrscr;
          write(I,'.sayi........:');readln(Sayi);
          if Sayi>0 then Ps:=Ps+1;
          if Sayi<0 then Ns:=Ns+1;
     end;
     clrscr;
     writeln('pozitiflerin sayisi....:',Ps);
     writeln('negatiflerin sayisi....:',Ns);
     readln;
end.