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

Var d, i: integer;
Begin
d := 0;
for i := 13 downto 8 do
d := d - 5 + i ;
writeln\(d\);
End.