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.

Answer 1

N = 4
d = n*2 = 4*2 = 8
i = 1; d = d+2*i = 8+2*1 = 10
i = 2; d = d+2*i = 10+2*2 = 14
i = 3; d = d+2*i = 14+2*3 = 20
Ответ: 20