Информатика

var a:array[1..3] of integer; 
i,n:integer; 
begin 
for i:=1 to 3 do 
begin 
a[i]:=round(6*random-3); 
writeln(a[i]); 
if a[i] <> 2 then 
n:=n+a[i]; 
if a[i]=2 then 
break; 
end; 
for i:=1 to 3 do 
begin 
if (a[i] <> 2) and (a[i+1] <> 2) and (a[i+2] <> 2) then 
begin 
writeln('Двойки нет'); 
break; 
end; 
end; 
write(n); 
end.

var a:array[1..50] of integer;
    i,n,k,s:integer;
begin
randomize;
repeat
write('Введите размер массива от 10 до 50 n=');
readln(n);
until n in [10..50];
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-3+random(7);
  write(a[i]:4);
 end;
writeln;
if a[1]=2  then write('Двойка первая, сумма=0')
else
 begin
  s:=0;
  k:=0;
  i:=1;
  while(i<=n)and(k=0) do
   begin
    s:=s+a[i];
    i:=i+1;
    if a[i]=2 then k:=1;
   end;
  if k=0then write('В массиве нет двоек')
  else write('Сумма до первой двойки=',s);
 end;
end.