P := 0; a := 4;
for i:=1 to 5 do
begin
a := 2*a - 1;
p := p + a;
end;​

Cokolowka    3   27.04.2021 13:43    0