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

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