Помогите пожалуйста!!!

Question

Помогите пожалуйста!!!

---

Answer 1

1.
Program n_1;
Var n, s : Integer:
Begin
n:=1
s:=0
while n<=300<br>s:=s+30
n:=n*5 ;
readln (s)
End.

2.
Program n_2
Var n, s : Integer:
Begin
n:=1
s:=42
while s>0
s:=s-5
n:=n+3 ;
readln (n)
End.