Определите значение переменной Sum после выполнения фрагмента программы:
i:=0;
Sum:=0;
while i<3 do
begin
i:=i+1;
Sum:= Sum+i*i*i;
end;