Объяснение:
program sum5powers;
var
x : real;
i: integer;
begin
x:=1; {т.к. 5^0=1}
for i:=1 to 7 do x:= x+exp(i*ln(5));
writeln('x = ',x:10:0);
end.
