Question

Определите, что будет напечатано в результате работы следующей программы.
var s, k: integer;
begin
s:=500;
for k :=4 to 10 do
s := s-2*k;
write(s);
end.
Объясните всё доступно, пожалуйста.
P.S.: Ответ я знаю,=402, но мне нужно объяснение как это число получилось.
Задание на 34 балла