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

Var A:integer; Begin A:=47; A:=A+17; A:=A+36; While (99