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.