program Array3;
var
  a: array of real;
  i, n: integer;
  d: real;
begin
  WriteLn ('Количество членов прогрессии:');
  ReadLn (n);
  SetLength(a, n);
  WriteLn('Первый член прогрессии:');
  ReadLn (a[0]);
  WriteLn ('Разность прогрессии:');
  ReadLn (d);
  WriteLn ('Прогрессия: ');
  Write (a[0]:5:2, ' ');
  for i := 1 to n - 1 do
  begin
    a[i] := a[0] + i*d;
    Write (a[i]:5:2, ' ');
  end;
  WriteLn;
  ReadLn;
end.