var a,s,i:integer;
begin
s:=0;
for i:=1 to 10 do
 begin
 write('Число: '); readln(a);
 if a<0 then s:=s+1;
 end;
writeln('Кол-во отрицательных чисел: ',s);
end.

Program Zorkini;
uses crt;
const n=10;
var
  Z: real;
  i,k: integer;
begin
  k:=0;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(z);
    if z<0 then k:=k+1;
  end;
  writeln('Количество отрицательных чисел ',k);
end.