program z7_104;
var
b: array[1..100] of integer;
i,n,a,h:integer;
begin
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà ');
readln(n);
for i:=1 to n do
begin
write('ââåäèòå ',i,' ýëåìåíò ìàññèâà ');
readln(b[i]);
end;
write('Ââåäèòå çàäàííîå ÷èñëî ');
readln(a);
i:=1;
while i<=n do
if b[i]>a then begin
for h:=i to n-1 do
b[h]:=b[h+1];
n:=n-1;
end
else i:=i+1;
for i:=1 to n do
write(b[i]:5);
End.