лабораторная работа / 1-3 от a до b / аб

program Project2;

var
x: array[1..6] of integer;
a,b,sum,col,i:integer;
begin
WriteLn('Vvedite massiv');
for i:=1 to 6 do
Read(x[i]);
WriteLn('Vvedite granici intervala');
Read(a,b);

sum:=0;
col:=0;
for i:=1 to 6 do
if (a<x[i]) and (x[i]<b) then
begin
sum:=sum+x[i];
col:=col+1;
end;
WriteLn('V intervale:');
WriteLn('Col-vo - ',col,'summa - ',sum);

sum:=0;
for i:=1 to 6 do
sum:=sum+x[i];
WriteLn('summa elementov massiva - ',sum);

ReadLn(i);
end.