Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5. - Turbo Pascal

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

Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.Буду очень благодарен.

Решение задачи: «Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.»

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

program korni;
uses crt;
var
   i: integer;
   k: real;
begin
     clrscr;
     writeln('---------------');
     writeln('| a  | sqrt(a)|');
     writeln('---------------');
     i:=10;
     while i<=50 do
     begin
        k:=sqrt(i);
        writeln('|',i:4,'|',k:8:4,'|');
        writeln('---------------');
        i:=i+5;
     end;
     readkey;
end.

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

В данном коде на Turbo Pascal происходит следующее:

Создается переменная i типа integer, которая будет использоваться для хранения чисел от 10 до 50 с шагом 5.
Создается переменная k типа real, которая будет использоваться для хранения корней квадратных чисел.
Выводится заголовок таблицы корней квадратных чисел.
Задается начальное значение переменной i равным 10.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной i не станет больше или равно 50.
Внутри цикла вычисляется корень квадратный числа i и сохраняется в переменной k.
Выводится строка с числом i и его корнем квадратным k.
Выводится заголовок таблицы.
Значение переменной i увеличивается на 5.
После завершения цикла выводится символ readkey, который позволяет пользователю нажать любую клавишу для выхода из программы.