Составить таблицу значений функции Y - Turbo Pascal

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

Составить таблицу значений функции Y при изменении аргумента Х на интервале от А до В с шагом Н, если при некоторых значениях аргумента функция не определена, то вывести соответствующее сообщение

Функция	A	B	G	H
	1.2	4.8	-2.5	0.4

Решение задачи: «Составить таблицу значений функции Y»

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

uses crt;
const a=1.2;
      b=4.8;
      h=0.4;
      g=-2.5;
var x,y:real;
begin
clrscr;
x:=a;
repeat
y:=g*(x+15*sqrt(x*x*x+g*g));
writeln('x=',x:4:1,' y=',y:6:3);
x:=x+h;
until x>b;
readln
end.

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

Программа на языке Turbo Pascal.
Задача программы - составить таблицу значений функции Y.
В начале программы объявляются константы a, b, h, g и переменные x, y типа real.
Значение переменной a равно 1.2, b - 4.8, h - 0.4, g - -2.5.
Переменная x инициализируется значением a.
Далее в цикле repeat...until происходит последовательное вычисление значений функции Y и их вывод на экран.
Значение переменной x увеличивается на h после каждой итерации цикла.
Цикл выполняется до тех пор, пока значение x не станет больше b.
В конце программы ожидается ввод пользователя с помощью readln.
Программа выводит на экран значения x и y в формате x=1.0 y=5.0.