program ch369 
const n=10; 
var a:arry[1..n] of integer; i,j,k,t:integer; 
bein 
writeln('please input:'); 
for i:=1 to n do read(a[i]); 
空一 do 
begin 
空二; 
for 空三 do 
if 空四 then k:=j; 
ifk>i 
then 
begin 
空五 
end 
end; 
for i:=1 to n do writeln(a[i],' '); 
end. 
拜托了,请速给答复