Запишите значение переменной d, полученное в результате работы следующей программы.
var d, n: integer;
begin
d := 5;
d := d−3;
for n := 1 to 4 do
d := d + n;
writeln\(d\);
end.