Определить значение переменной s после выполнения следующих фрагментов программы: Var s; real; i : integer; . . . s := 0; for i := 1 to 9 do begin s := s*10 ; s := s + I ; end;