помогите пожалуйста по информатике.
N:=0
S:=0
While s<=47 do
Begin
N:=n+1
S:=s+2
End
Write(n)

0