Составить прграмму с командой while для решения задачи: Найти сумму 1+3+5+7+9...+31.

Var x,s:integer;
Begin
 s:=0;
 x:=1;
 while x<=31 do
   begin
    s:=s+x;
    x:=x+2;
   end;
 writeln('S=',s);
End.