Массив

program stup;
uses crt;
const N=10;
type massiv=array[1..N] of integer;
var i,sum,kolvo,k1,k2:integer;
a:massiv;
Begin
//Randomize;
writeln('Massiv: ');
for i:=1 to N do begin
    write('a[',i,']= ');    //ââîä
    readln(a[i]);
end;
for i:=1 to N do write(a[i]:3); //âûâîä
 
i:=1;
While (a[i]<>4) and (i<>N) do inc(i);  //ïîèñê ïåðâîãî ýëåìåíòà,ðàâíîãî 4
 
if (i=n) and (a[i]<>4) then writeln('Íåò ÷åòâåðîê!')
else
BEGIN
 k1:=i;//ïåðâàÿ ÷åòâåðêà
 i:=i+1;
 
while (a[i]<>4) and (i<>N)  do inc(i);   //ïîèñê âòîðîãî ýëåìåíòà,ðàâíîãî 4
if (i=N) and (a[i]<>4) then writeln('×åòâåðêà îäíà!')
else
BEgin
     k2:=i; //âòîðàÿ ÷åòâåðêà
 
for i:=k1+1 to k2-1 do
begin
     sum:=sum+a[i];
     kolvo:=kolvo+1;
end;
 
if kolvo=0 then writeln('Ìåæäó äâóìÿ ÷åòâåðêàìè íåò ýëåìåíòîâ')
else
begin
     writeln;
     writeln('Ñóììà= ',sum);
     writeln('Êîëè÷åñòâî= ',kolvo);
end;
end;
end;
End.