Паскаль. ПОЖАЛУЙСТА, ПОМОГИТЕ!
Задан массив целых чисел. Определить, имеются ли в этом массиве три идущих подряд нулевых элемента.
(Желательно с блок-схемой)

Большое Спасибо!!!

Const   N = 13;Var   A:array[1..N] of integer;   i,k:integer;BeginRandomize;k:=0;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(N div 3);    Write(' ',A[i])    End;For i:= 1 to N-2 do    if (A[i]=0)and(A[i+1]=0)and(A[i+2]=0) then       k:=1;WriteLn;if k=0 then WriteLn('В массиве нет ряда из трёх нулей')else WriteLn('В массиве есть ряд из трёх нулей')End.