Визначте s після виконання операторів:
X:=3; S:=1;
while x>10 do X:=X+2; S:=S+X;