Запишите значение переменной d, полученное в результате работы следующей программы.
Var d,n,i:integer;
Begin
n:=3;
d:=n*3
For i:=1 to 3 do
d:=d+i;
Writeln(d);
End.