Const
 Nmax=100;
Var
 A,B:Array[1..Nmax] of Real;
 D:Real;
 i,N:Byte;
Begin
 Write('N= ');
 Readln(N);
 Write('A= ');
 Readln(A[1]);
 Repeat
  Write('D= ');
  Readln(D);
  If D=0 then writeln('D must be <>0!');
 Until D<>0;
 Writeln('Initial array:');
 Write(A[1]:8:2);
 For i:=2 to N do
  begin
   A[i]:=A[i-1]+D;
   Write(A[i]:8:2);
  end;
 Writeln;
 Writeln('Ordered array:');
 If D>0 then
  for i:=1 to N do
   B[i]:=A[N-i+1]
  else
  B:=A;
 For i:=1 to N do
  Write(B[i]:8:2);
 Readln
End.