Посчитать вторую и третью степень и корень квадратный цифр от 1 до 9 - Free Pascal

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

Нужна программа, которая посчитает вторую и третью степень и корень квадратный цифр од 1 до 9. На конце программы будет табличка и результаты будут в столбиках: число, вторая степень, третья степень и корень квадратный. В программе должны быть функции repeat и until. Поможете пожалуйста?

                    Листинг программы
                
 
                        
                          
                    
program tablica; 
uses crt;
 var i:integer;
 begin 
clrscr;
 for i:= 1 to 9 do 
begin
 writeln(i,' ',sqr(i),' ',sqr(i)*i,' ',sqrt(i));
 end; 
readln;
 end.

Вот уже получилось что то ну еще надо добавить функции а это уже я незнаю...

Решение задачи: «Посчитать вторую и третью степень и корень квадратный цифр от 1 до 9»

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

program tablica;
uses
  crt;
var
  i:integer;
begin
  clrscr;
  i:=0;
  repeat
    inc(i);
    writeln(i:4,' ',sqr(i):4,' ',sqr(i)*i:4,' ',sqrt(i):8:4);
  until i=9;
  readln;
end.

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

В данном коде используется язык программирования Free Pascal. Постановка задачи заключается в вычислении второй и третьей степени, а также корня квадратного цифр от 1 до 9.

Объявляется переменная i типа integer (целое число), которая будет использоваться для перебора чисел от 1 до 9.
Запускается цикл repeat-until, который будет выполняться до тех пор, пока значение переменной i не станет равным 9.
Внутри цикла происходит увеличение значения переменной i на единицу с помощью оператора inc(i).
С помощью функции writeln выводятся значения переменной i (в 4-х разрядах), второй степени (sqr(i)) (в 4-х разрядах), третьей степени (sqr(i)*i) (в 4-х разрядах) и корня квадратного (sqrt(i)) (в 8-ми разрядах) на каждой итерации цикла.
После завершения цикла запрашивается ввод с помощью функции readln.
Код завершается.