Количество литров в галлонах, геометрическая прогрессия. - Turbo Pascal

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

#1. Составить программу для нахождение количества литров L, которые содержится в Х галлонах (1 галлон = 4,54609 литра). Исходное количество галлонов задается с клавиатуры. #2. Напишите программу вычисления общего члена Вn и суммы Sn первых n членов геометрической прогрессии. Первый член прогрессии b1, знаменатель прогрессии q и число членов задается с клавиатуры.

Решение задачи: «Количество литров в галлонах, геометрическая прогрессия.»

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

program progressia;
uses crt;
var b1, q, n:integer;
begin
write('Vvedite b1: '); readln(b1);
write('Vvedite q: '); readln(q);
write('Vvedite n: '); readln(n);
writeln('Bn=', b1*power(q, n-1));
writeln('Sn=', (b1*power(q, n-1)*q-b1)/(q-1));
end.

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

Этот код на Turbo Pascal запрашивает у пользователя три числа: b1, q и n. Затем он вычисляет Bn (количество литров в галлонах) и Sn (геометрическая прогрессия). Вот как это работает:

write('Vvedite b1: '); - программа просит пользователя ввести значение переменной b1.
readln(b1); - программа читает введенное пользователем значение и сохраняет его в переменной b1.
write('Vvedite q: '); - программа просит пользователя ввести значение переменной q.
readln(q); - программа читает введенное пользователем значение и сохраняет его в переменной q.
write('Vvedite n: '); - программа просит пользователя ввести значение переменной n.
readln(n); - программа читает введенное пользователем значение и сохраняет его в переменной n.
writeln('Bn=', b1*power(q, n-1)); - программа выводит Bn, результат умножения b1 на power(q, n-1).
writeln('Sn=', (b1*power(q, n-1)*q-b1)/(q-1)); - программа выводит Sn, результат вычисления ((b1power(q, n-1)q-b1)/(q-1)).