Программа

Program Pilshikov_5_28 (input,output);
{ Дана последовательность 70
  целых чисел.
  Определить, со скольких отрицательных
  чисел она начинается }
Var a:integer; { Очередное число последовательности }
    i:integer; { Счетчик }
BEGIN
  i:=0; { Определение счетчика }
  repeat { Цикл ввода и проверки чисел }
    Write('Введите ',i+1,'-е число ');
    { Приглашение следующее очередное число }
    Readln(a); { Ввод очередного числа }
    if a<0 then i:=i+1; { Подсчет введенных отрицательных чисел }
  until (i=70)or(a>=0); { Выход из цикла при достижении конца
                          последовательности или
                          при обнаружении неотрицательного элемента }
  Writeln('Последовательность начинается с ',i,' отрицательных чисел')
  { Вывод результатов }
END.