программа про осадки (PASCAL)

[ex-hack]

известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было . определить в течение какого количества первых дней месяця непрерывно , начиная с первого маяя , осадков не было? условный оператор не использовать. росмотреть случай когда осадков не могоо быть и в какой день мая

[VADOS2009-1]

седьмая... в массиве 0 это день, когда были осадки, 1 - когда не было.. предполагается, что в первый день осадков не было.. заполнение массива сами сделайте как хотите.. если рандомно там чаще всего будет получаться 1-3 дня подряд без осадков
Код:
Вот как то так:
var
x:array[1..31] of byte;
i,k,num_of_days:byte;
begin
randomize;
x[1] := 1;
write(x[1]:2);
for i:=2 to 31 do begin
x[i] := random(2);
write(x[i]:2);
end;
num_of_days := 0;
k := 1;
i := 1;

repeat
k := k*x[i];
inc(i);
inc(num_of_days);
until (k = 0) or (i > 31);
writeln;
num_of_days := num_of_days-1;
writeln(num_of_days);

readln;
end.