Определите значение переменных i и S после выполнения программы на Паскале:
program example;
var i, S: integer;
begin
S:=0; i:=0;
while i<=6 do
begin S:=S+i; i:=i+2 end;
writeln ('i= ', i, ' S=',S) ;
end.