Задачи по Pascal. Вычисление значения функции

Условие задачи : Требуется написать программу, вычисляющую значение функции у = f(x).

Сложность : легкая .

Для того чтобы нам решить подобную задачу нужно будет воспользоваться обычным условием if then else.

К примеру нам надо решить вот такую систему функции :

у = x – 2, если x > 0,
y = 0, если x = 0,
y = |x|, если x < 0.

Тут нам надо найти у в зависимости от x , т.е. у нас будет две переменные :  под ответ и под значение.

Давайте создадим каркас :

uses crt;
var
    x, y: integer;
 
begin
end.

Для начала попросим пользователя ввести число , то есть x  :

write ('x = '); readln (x);

Ну и дальше в зависимости от x  мы должны написать условие :

if x > 0 then
        y := x - 2
else
    if x = 0 then
          y := 0
    else
          y := abs (x);

Довольной простое условие , когда пользователь ввел число, оно подставляется сначала в первое x > 0 если оно не выполняется , т.е. наше число x  меньше 0 , то оно уже подставляется в другое условие и так далее.

Весь код задачи :

uses crt;
var
    x, y: integer;
 
begin
    clrscr;
    write ('x = '); readln (x);
 
    if x > 0 then
        y := x - 2
    else
        if x = 0 then
            y := 0
        else
            y := abs (x);
 
    writeln ('y = ', y);
 
readln;
end.