Подпрограмма: Напишите функцию для вычисления значения y по заданной формуле - Pascal

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

Напишите функцию для вычисления значения y. у = 2x^2, если x ≤ 1, y = x+1/3, если 1 ≤ x≤8, y = √sin^2 x, если x ≥ 8.

Решение задачи: «Подпрограмма: Напишите функцию для вычисления значения y по заданной формуле»

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

{$MODE TP}
function Y(const x: Single): Double;
var
    Result: Double;
begin
    if (x <= 1) //уточнить знак
    then
        Result := 2 * Sqr(x)
    else
        if (x <= 8) //уточнить знак
        then
            Result := x + 1 / 3
        else
            Result := x; //уточнить формулу
    Y := Result;
end;
var
    x: Single;
begin
    Write('Input x='); ReadLn(x);
    WriteLn('Y=', Y(x):0:2);
end.

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

Объявляется функция Y с аргументом x типа Single и возвращаемым значением типа Double.
Внутри функции объявляется переменная Result типа Double.
Проверяется условие: если x меньше или равен 1, то - Присваивается Result значение 2 умножить на квадрат x (2 * x^2).
Если предыдущее условие не выполнено, то проверяется следующее условие: если x меньше или равен 8, то - Присваивается Result значение x плюс 1 делить на 3 (x + 1/3).
Если ни одно из предыдущих условий не выполнено, то - Присваивается Result значение x.
Возвращается значение Result в качестве результата функции.
Объявляется переменная x типа Single.
Пользователю предлагается ввести значение для переменной x.
Выводится значение функции Y(x) с округлением до двух знаков после запятой.