Помогите ПОЖАЛУЙСТА исправить программу (в Паскале) с параметром, чтобы она работала.. **...

Question

Помогите ПОЖАЛУЙСТА исправить программу (в Паскале) с параметром, чтобы она работала..
На фото она не работает, тк где то неправильно составлена формула, или несколько формул. ((
Условие задачи:
1. А=1 , В=3
2. Количество кругов цикла:
В-А+1
....................................................................................................
(ниже задача, как на фото, её надо исправить) :
for i=A to B do
begin
S:= SQR (A);
A:= A+1;
M:= S+SQR (A);
end;
....................................................................................................

---

Comments

Что должно получится в итоге?

Answer 1

M := 0;
for i := A to B do
begin
  S := SQR(i);
  M := M + S;
end;

Будет выполнено:
M = 0
i = 1  ->  S = i² = 1  ->  M = 1
i = 2  ->  S = i² = 4  ->  M = 5
i = 3  ->  S = i² = 9  ->  M = 14