Введите, какое значение примет переменная S по завершению программы:
Var N,i,S: integer;
Begin
N:=9;
S:=0; i:=1;
While i begin
S:=S+i;
i:=i+2;
end;
Writeln('S=', S);
End.