Вывести среднюю стоимость продукта за 10 месяцев - Pascal ABC

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

Начальная стоимость продукта равна С рублей предполагается ежемесячное снижение стоимости на р рублей за счет совершенствования технологии и ежемесячное увеличение на q% из-за роста стоимости электроэнергии вывести среднюю стоимость продукта за 10 месяцев

Решение задачи: «Вывести среднюю стоимость продукта за 10 месяцев»

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

const n=10;
var c,p,q,s,sr:real;
    i:integer;
begin
repeat
writeln('c>0 0<p<c q>0');
readln(c,p,q);
until (p>0)and(c>p)and(q>0);
sr:=0;
for i:=1 to n do
 begin
  c:=c-p+q;
  sr:=sr+c;
 end;
sr:=sr/n;
write(sr:0:2);
end.

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

const n=10; - объявляется константа n равная 10
var c,p,q,s,sr:real; - объявляются переменные c,p,q,s,sr типа real
i:integer; - объявляется переменная i типа integer
repeat - начинается цикл повторения до тех пор, пока условие истинно
writeln('c>0 0<p0'); - выводится строка с командами для ввода данных
readln(c,p,q); - считывается ввод данных из стандартного ввода
until (p>0)and(c>p)and(q>0); - выполняется условие до тех пор, пока оно истинно
sr:=0; - переменной sr присваивается значение 0
for i:=1 to n do - начинается цикл for i от 1 до n
begin
c:=c-p+q; - переменной c присваивается значение c минус p плюс q
sr:=sr+c; - переменной sr присваивается значение sr плюс c
end; - заканчивается цикл
sr:=sr/n; - переменной sr присваивается значение sr деленное на n
write(sr:0:2); - выводится значение переменной sr с приставкой 0 для обозначения десятичного числа
end. - заканчивается программа