Найти сумму первых к членов этой прогрессии - Free Pascal

Формулировка задачи:

Ребят работаю инструктором и не чего не успеваю выручите. 1. Даны второй и пятый члены геометрической прогрессии. Найти сумму первых к членов этой прогрессии. 2. Вычислить площадь и периметр равнобедренного треугольника со стороной а и основанием в.

Решение задачи: «Найти сумму первых к членов этой прогрессии»

Листинг программы

Uses Math;
var b1,b2,b5,q:double;
  k:dword;
begin
  write('b2 : ');
  Readln(b2);
  write('b5 : ');
  Readln(b5);
  q:=power(b5/b2,1/3);
  b1:=q/b2;
  write('k : ');
  readln(k);
  Write('Sum b(',k,') = ');
  if q<>1 then Writeln(b1*(1-power(q,k))/(1-q):5:3)
  else Writeln(k*b1:5:3);
  Readln;
end.

Объяснение кода листинга программы

Импортируется модуль Math.
Объявляются переменные b1, b2, b5, q типа double и k типа dword.
Выводится значение переменной b2.
Считывается значение переменной b2.
Вычисляется значение переменной q как степени числа b5/b2, делённой на 3.
Вычисляется значение переменной b1 как степени числа q, делённой на b2.
Выводится значение переменной k.
Выводится сумма первых k членов прогрессии (b1*(1-power(q,k))/(1-q)).
Программа ожидает ввода.