циклы в дельфи

[dearkato]

Даны действительные числа a1, a2 ,...,a2n.Получить a1,an+1, a2,an+2, ... ,an,a2n.

Вычислить f=10! , используя все три разновидности оператора Цикла.

[Dush]

вот примерный вариант:

    for I := 0 to 2*n - 1 do
    begin
      Readln(a[i]);
    end;
    i:=0;
    while i<n do
    begin
      b[i*2]:=a[i];
      b[i*2+1]:=a[n+i];
      i:=i+1;
    end;
    for I := 0 to 2*n - 1 do
    begin
      Writeln(b[i]);
    end;
    readln;

если использовать вспомогательный массив нельзя - то надо еще подумать
ну а факториалы:

1. 
P1:=1;
for i:=2 to 10 do
  p1:=p1*i
2. 
P2:=1; i:=2;
while i<=10 do
begin
  P2:=P2*i;
  i:=i+1;
end;
3.
P3:=1; i:=2;
repeat
  P3:=P3*i;
  i:=i+1;
until i>10;

[dearkato]

спасибо огромное)))