Запишите значение переменной d, полученное в результате работы программы.

Var d, i: integer;
Begin
d := -8;
for i := 1 to 7 do
d := d + 2 * i;
writeln\(d\);
End.