Программа на языке Pascal, которая определяет количество максимально подряд идущих нулей в последовательности до числа -1:

program MaxSequenceOfZeros;
var
num, maxSeq, currentSeq: integer;
begin
maxSeq := 0;
currentSeq := 0;
repeat
read(num);
if num = 0 then
begin
currentSeq := currentSeq + 1;
end
else
begin
if currentSeq > maxSeq then
maxSeq := currentSeq;
currentSeq := 0;
end;
until num = -1;
writeln('Максимальное количество подряд идущих нулей: ', maxSeq);
end.

Эта программа считывает последовательность чисел, подсчитывает количество максимально подряд идущих нулей и выводит результат после ввода числа -1.