Вывести арифметическую прогрессию (Паскаль)

[Rokko195]

Вот что налепил. сильно не бейте я только начинаю и еще многое не понимаю.

Kod Pascal

var 
    a,d,s,i, r:integer;
   ;

begin

write('Ввести 1ый член арифм. прогрессии:');
readln(a);
write ('Ввести сдвиг :');
readln(d);
write ('Ввести количества арифм. членов :');
 readln(s);

r:= ((2*a+d*(s-1))*s)div 2;

for i:= a to s do
  begin



    writeln(i,'.член ариф прогрессии:' ,r,(i) );
    
  end;

readln;

end.

При вводе \первый член арифм. Прогрессии =1

Сдвиг=3

Количество =10
Результат должен быть 1.4.7.10 итд.в столбик. А у меня получается бред.




___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[BDA]

var
  a, d, s, i: integer;

begin
  write('Ввести 1ый член арифм. прогрессии:');
  readln(a);
  write('Ввести сдвиг :');
  readln(d);
  write('Ввести количества арифм. членов :');
  readln(s);
  for i := 1 to s do
    writeln(i, '.член ариф прогрессии: ', a + (i - 1) * d);
  readln;
end.