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