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

Перед входом в цикл while переменная i = 1.

В цикле i изменит значение три раза, пока не станет больше 8:

i =  1 + 3 = 4;

i =  4 + 3 = 7;

i = 7 + 3 = 10.

Войдя в цикл со значением 1 переменная s  будет последовательно принимать значения:

s= 1 * 4 = 4;

s= 4 * 7 = 28;

s= 28 * 10 = 280.

Ответ: s = 280.