uses
crt;
var
a,b,b1:array[1..100] of integer;
q,i,j,t,sum,min,mini,n:integer;
begin
clrscr;
writeln('wvedite kol-vo gruzov');
readln(n);
if not ((n<=16) and (n>=1)) then
begin
writeln('povtorite vvod');
readln(n);
end;
writeln('wvedite massi gruzov ot 1 do 16 tonn');
for i:= 1 to n do
begin
read(a[i]);
if a[i]>16 then
repeat
writeln('povtorite vvod');
read(a[i]);
until a[i] in [1..16];
end;
writeln('wvedite q, q<=16');
readln(q);
j:=0;
t:=0;
for i:= 1 to n do
begin
if a[i]>4 then
begin
j:=j+1;
if j<q then
b[j]:=a[i];
end;
if a[i]<=4 then
begin
t:=t+1;
b1[t]:=a[i]
end
end;
sum:=0;
min:=b1[1];
mini:=1;
for i:= 1 to t do
begin
sum:=sum+b1[i];
if b1[i]<min then
begin
min:=b1[i];
mini:=i;
end;
end;
writeln('obsha9 summa u massiva b1 ',sum);
write('kol-vo gruzov bloshe 4 tonn: ');
for i:= 1 to j do
write(b[i],' ');
writeln;
writeln('sami legki gruz ',min,' ego nomer ',mini);
write('voobhe obsha8 suuna vseh gruzov: ');
sum:=0;
for i:= 1 to n do
sum:=sum+a[i];
write(sum);
readkey
end.