Помогите решить, пожалуйстаTurbo Pascal 7

Question

Помогите решить, пожалуйста
Turbo Pascal 7

---

Answer 1

Program circle;
var a,z,d: integer;
Begin
a:=7; z:=3; d:=4;
While z<=97 do begin