var i:integer;
a:array[1..10]of integer;
begin
for i;=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<a[i-1]
then write(a,' ');
end;
var i:integer;
a:array[1..10]of integer;
begin
for i;=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<a[i-1]
then write(a,' ');
end;