Нужно составить программу для данной блок-схемы

Question

Нужно составить программу для данной блок-схемы

---

Comments

В блок-схеме должны быть переменные.

---

Ну нам показали эту Блок-схему

---

Сказали по ней составить программу в паскаль

Answer 1

Var A:integer;
Begin
A:=47;
A:=A+17;
A:=A+36;
While (99   Begin
   A:=A+284;
   A:=A+116;
   End;
A:=A+2587;
WriteLn('Ответ: ',A);
End.

Comments

Спасибо большое