Что в результате выполнения фрагмента программы появится на экране?

S:=0; T:=4;

For I:=1 to 3 do begin

S:=S+T-2*I;

T:=T+SmodI;

end;

Writeln(S);