Таблица степеней - Pascal ABC

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

Составить таблицу степеней числа 3: 3ⁿ, n=1, 2, 3...i Прекращать печатать таблицу, когда 3ⁿ превысит заданное число D. Вычисления проводить не используя операцию возведения в степень

Решение задачи: «Таблица степеней»

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

var d,i,s:integer;
begin
write('Введите число, максимум для 3^n d=');
readln(d);
s:=1;
i:=0;
while s<=d do
 begin
  s:=s*3;
  writeln('3^',i,'=',s);
  i:=i+1;
 end;
end.

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

Создаются три переменные: d, i и s, которые имеют тип integer (целое число).
Выводится сообщение «Введите число, максимум для 3^n d=», где n - это предполагаемый максимум степени, которую пользователь будет вводить.
Считывается значение переменной d с помощью функции readln.
Инициализируются переменные s и i нулевыми значениями.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной s не превысит значение переменной d.
Внутри цикла переменная s умножается на 3, что представляет собой возведение в степень.
Выводится сообщение, содержащее степень 3, значение переменной i и значение переменной s.
Переменная i увеличивается на единицу.
Цикл while повторяется, пока значение переменной s не превысит значение переменной d.
Код завершается.