3. задан ряд последовательных натуральных чисел от n до m (n

 uses crt;
var n,m,i,j,k:integer;    
a:array[1..1000] of integer;
begin
repeat
writeln('Введите 2 натуральнвх числа n<m<1000:');
read(n,m);
until
(n>0)and(n<m)and(m<1000);
writeln('Начальный ряд:');
k:=0;
for i:=n to m do
 begin  
 inc(k);   a[k]:=i;  
write(a[i]:4);  
end;
writeln;
while k>=2 do
 begin  
 i:=1;  
while i<=k do  
  begin     for j:=i to k-1 do    
 a[j]:=a[j+1];    
 k:=k-1;
  i:=i+1;    
end;  
 i:=2;  
while i<=k do  
  begin     f
or j:=i to k-1 do    
 a[j]:=a[j+1];    
k:=k-1;    
i:=i+1;    
end;
 end;
write(a[k]);
end.