Question

Что будет напечатано на экране после выполнения программы
Var
I,S: integer
begin
S:=0
for I:=1 to 10 do
begin
if I<6 then
S:=S+2
else
S:=S-1
end
write(s);
end