Вычислить значение функции - Pascal (80952)

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

Вычислить.y=система x2+3.x меньше или равно 0 2x2+4.x больше 1 где x и y-натуральные числа.Программа паскаль.

Решение задачи: «Вычислить значение функции»

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

var
    x: LongInt;
begin
    Write('Input x='); ReadLn(x);
    if (x < 0)
    then
        Write('Error. Value is not a natural number.')
    else
        if (x = 0)
        then
            Write('y=', Sqr(x) + 3)
        else
            Write('y=', 2 * Sqr(x) + 4);
end.

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

Создается переменная x типа LongInt.
Выводится сообщение Input x= для ввода значения переменной x.
Считывается значение переменной x с помощью функции ReadLn().
Проверяется условие if (x < 0):
- Если x меньше нуля, выводится сообщение Error. Value is not a natural number.
Создается переменная y с помощью оператора Write.
Вычисляется значение y с помощью формулы y= (x^2) + 3, если x равно нулю.
Вычисляется значение y с помощью формулы y= 2*(x^2) + 4, если x не равно нулю.
Значение переменной y записывается в переменную x.
Программа завершается.