Цикл Опции

[BanneD]

program massiv;
const n=15;
var x:array[1..n]of integer;
     m,i:integer;
begin
      read(m); {m=4}
      read(x[1]); {x[1]=2}
      for i:=2 to n do
      x[i]:=x[i-1]+m;
      for i:=1 to n do
      writeln('x[',i,']=',x[i]);
      end.
 

Помогите как вот это всё пихнуть в 1 цикл!?
не так

   for i:=2 to n do
begin
      x[i]:=x[i-1]+m;
      writeln('x[',i,']=',x[i]); 
end;

потому что здесь будет выводиться начиная со 2-го эл-а!

и не так

 writeln('x[1]=',x[1]);
	  for i:=2 to n do
	   begin
	  x[i]:=x[i-1]+m;
	  writeln('x[',i,']=',x[i]);
	  end;

Училка говорит что есть другие способы!
мб кто знает?

Сообщение отредактировано: BanneD - 20.12.2010 22:49

[Freedom]

program massiv;
const n=15;
var x:array[1..n]of integer;
     m,i:integer;
begin
      read(m); {m=4}
      read(x[1]); {x[1]=2}
      for i:=2 to n do
      x[i]:=x[i-1]+m;
      for i:=1 to n do
      writeln('x[',i,']=',x[i]);
      end.
 

Помогите как вот это всё пихнуть в 1 цикл!?
не так
Училка говорит что есть другие способы!
мб кто знает?

А если вот так??

      for i:=1 to n do begin
      If i>1 then x[i]:=x[i-1]+m;
      writeln('x[',i,']=',x[i]);
      end;