Question

Var d,n,i: integer;

Begin

n := 4;

d:=n*2

For i := 1 to 3 do

d := d + 2*i;

Writeln(d);

End.