program trezeri

informatica

program trezeri;

uses crt;

const n=12;

type vet=array[1..n] of integer;

var v:vet;i,s,app:integer;

begin

clrscr;

randomize;

for i:=1 to n do

begin

v[i]:=random(2);

textcolor(3);

writeln(v[i])

end;

for i:=1 to n do

if v[i]=0 then

if (v[i+1])=0 then

if v[i+2]=0 then

writeln('ho trovato tre zeri consecutivi!!!');

readln

end.