Определить значение переменной S после выполнения операторовs:=0;for i:=1 to 5 dobegin s:=s+i; s:=1; end;

Конечно же, 1.
Что бы ни делалось и сколько бы раз ни делалось, при каждом проходе по циклу последним выполняется оператор s:=1.