Программа

Program Pilshikov_5_42 (input,output);
{ Дана последовательность из 100
  целых. Определить кол-во чисел в
  наиболее длинной
  подпоследовательности из подряд
  идущих нулей }
Label 1;
Var x,i,Quantity0,CurrentQuantity0:integer;
    Flag0:boolean;

BEGIN
  Quantity0:=0;
  CurrentQuantity0:=0;
  Flag0:=False;
  for i:=1 to 100 do
    Begin
      Write('Введите число ');
      Readln(x);
      if x=0 then begin CurrentQuantity0:=CurrentQuantity0+1;
                        Flag0:=True
                  end
             else if Flag0 then begin
                                  if CurrentQuantity0>Quantity0
                                    then Quantity0:=CurrentQuantity0;
                                   Flag0:=False;
                                   CurrentQuantity0:=0
                                end
    End;
  if CurrentQuantity0>Quantity0 then Quantity0:=CurrentQuantity0;
  Writeln('Ответ: ',Quantity0)
END.