Question

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

Answer 1

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