посчитайте пж нужно очень

:

program z;

var s,k:integer;

begin

s:=0;

for k:=1 to 5 do s:=s+2*k;

write(s)

end.

30

k s

1 2

2 6

3 12

4 20

5 30