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

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