Составить программу подсчитывающую количество положительных и отрицательных чисел из введенных пяти

var
  otr,pol,i: byte;
  a: integer;
begin
  for i:=1 to 5 do
  begin
    writeln('Введите ',i,'-е число: ');
    readln(a);
    if a>0 then pol:=pol+1 else
      if a<0 then otr:=otr+1;
  end;
  writeln('Положительных: ',pol,'; отрицательных: ',otr);
  readln;
end.

Program Lab15_1;
uses crt;
type seria=file of integer;
var
    s:seria;
    x:integer;
    i:real;
 
function poz(var s:seria; n:integer):integer;
var
    i1,i,x:integer;
begin
    reset(s);
    i:=0;
    i1:=0;
 
    while not eof(s) do begin
        read(s,x);
        if x>0 then i:=i+1
        else i1:=i1+1
        end;
     poz:=i;
end;
 
begin
 
    Writeln('Dlya zaverwenia raboti vvedite "0"');
 
    assign(s,'in.txt');
    rewrite(s);
 
    repeat
        write('Vvedite chisla v fail "s" : ');
        readln(x);
        write(s,x);
    until (x=0);
 
    i:=poz(s,x)
    
    Writeln;
    Writeln('Kolichestvo polojitelnix chisel v  s =', i:4:0);
    Writeln('Kolichestvo otricatelnix chisel v  s =', x);
    close (s);
readkey;
clrscr;
end.

program Lab15_1;
 
uses crt;
type
  seria = file of integer;
 
var
  s: seria;
  x: integer;
  i: integer;
 
function poz(var s: seria; n: integer; var i1: integer): integer;
var
  i, x: integer;
begin
  reset(s);
  i := 0;
  i1 := 0;
  
  while not eof(s) do 
  begin
    read(s, x);
    if x > 0 then 
      i := i + 1
    else 
    if x < 0 then 
      i1 := i1 + 1
  end;
  poz := i;
end;
 
begin
  
  Writeln('Dlya zaverwenia raboti vvedite "0"');
  
  assign(s, 'in.txt');
  rewrite(s);
  
  repeat
    write('Vvedite chisla v fail "s" : ');
    readln(x);
    write(s, x);
  until (x = 0);
  
  i := poz(s, i, x);
  
  Writeln;
  Writeln('Kolichestvo polojitelnix chisel v  s =', i);
  Writeln('Kolichestvo otricatelnix chisel v  s =', x);
  close(s);
  readkey;
  clrscr;
end.

var
a,b,c,d,e,x,x1:longint;
begin
readln(a,b,c,d,e);
if a>=0 then inc(x)
else
inc(x1);
if b>=0 then inc(x)
else
inc(x1);
 
if c>=0 then inc(x)
else
inc(x1);
 
if d>=0 then inc(x)
else
inc(x1);
 
if e>=0 then inc(x)
else
inc(x1);
writeln('Положительных чисел = ',x);
writeln('Отрицательных чисел = ',x1);
end.

var i, t, p, q: Integer;
begin
  for i:=1 to 5 do begin
    Read(t); Inc(p,Ord(t>0)); Inc(q,Ord(t<0));
  end;
  WriteLn('положительных: ',p,' отрицательных: ',q);
end.

var
a,b,c:integer;
begin
b:=0;c:=0;
for i:=1 to 5 do
begin
readln(a);
if a>o then b:=b+1 else if a<0 then c:=c+1;
end;
writeln(b,' ',c);
end.