Помогите , пожалуйста 91 задание .

Question

Помогите , пожалуйста 91 задание .

---

Answer 1

DIM N,
S
AS
INTEGER N = 0 S = 0
WHILE S <= 249 S = S + 24 N = N + 10 WEND PRINT N</span>var n, s: integer; begin     n := 0;     s := 0;    
while s <= 249 do     <br>begin         s := s + 24;         n := n + 10     end;     
write(n) end.