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