Вычислить сумму и произведение... - Pascal

Формулировка задачи:

Вычислить сумму и произведение 10 членов арифметической прогрессии. a1 и d задаются с клавиатуры. Очередной член арифметической прогрессии определяется по формуле: an= a1+d(n-1)

Решение задачи: «Вычислить сумму и произведение...»

Листинг программы

uses crt;
const n=10;
var i,a,d,s,p:longint;
 
begin
 clrscr;
 p:=1;
 s:=0;
 write('A1 D -> ');
 readln(a,d);
 for i:=1 to n do
 begin
  p:=p*a;
  s:=s+a;
  a:=a+d;
 end;
 writeln('S=',s);
 writeln('P=',p);
 readln;
end.

Объяснение кода листинга программы

Установка начального значения переменной p равным 1.
Установка начального значения переменной s равным 0.
Вывод сообщения с просьбой ввести значение переменной a и d.
Чтение значений переменных a и d с помощью функции readln().
Исполнение цикла от 1 до 10 с помощью for i:=1 to n do.
Перемножение значения переменной p на значение переменной a.
Добавление значения переменной a к значению переменной s.
Прибавление значения переменной d к значению переменной a.
Вывод значения переменной s.
Вывод значения переменной p.
Ожидание нажатия клавиши с помощью readln().