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