program z7_102;
uses crt;
var a: array[1..100] of integer;
i,n,k1,k2,j:integer;
BEGIN
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà ');
readln(n);
for i:=1 to n do
begin
write('ââåäèòå ',i,' ýëåìåíò ìàññèâà ');
readln(a[i]);
end;
write('Ââåäèòå ÷èñëî k1 ');
readln(k1);
write('Ââåäèòå ÷èñëî k2 ');
readln(k2);
i:=1;
while i<=n do
if (a[i]>=k1) and (a[i]<=k2) and (a[i] mod 7=0) then begin
for j:=i to n-1 do a[j]:=a[j+1];
n:=n-1; end else i:=i+1;
for i:=1 to n do
write(a[i]:5);
end.