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