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