Определите значение переменной S после выполнения операторов: ... i:=0; S:=0 While i<3 do Begin i:=i+1; S:=S+i*i End; ...