program xxx;
var i, n : integer;
a, d : real
s: array[1..20] of real;
begin
write('введите N-');
readln (n);
write('введите а=');
readln(a);
write('введите d=');
readln(d);
s[1]:=a;
for i:=2 to n do
s[i]:=a+d;
write('Арифметическая прогрессия:');
for i:=1 to n do
write(s[i]);
end.
program xxx;
var i, n : integer;
a, d : real
s: array[1..20] of real;
begin
write('введите N-');
readln (n);
write('введите а=');
readln(a);
write('введите d=');
readln(d);
s[1]:=a;
for i:=2 to n do
s[i]:=a+d;
write('Арифметическая прогрессия:');
for i:=1 to n do
write(s[i]);
end.