Составить блок-схему и программу для вычисления знач. функции У в зависимости от заданного с клав. знач. аргумента Х - T - Turbo Pascal

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

Ребята помогите пожалуйста решить задачку по TurboPasсal Составить блок-схему и программу для вычисления знач. функции У в зависимости от заданного с клав. знач. аргумента Х - Turbo Pascal

Решение задачи: «Составить блок-схему и программу для вычисления знач. функции У в зависимости от заданного с клав. знач. аргумента Х - T»

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

uses crt;
var x,y:integer;
begin
clrscr;
write('Введите целое число x=');
readln(x);
if x<=-2 then y:=-3
else if x<=0 then y:=x
else y:=-x;
write('y=',y);
readln
end.

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

Ввод значения переменной x с помощью функции readln().
Проверка значения переменной x с помощью условного оператора if.
Присваивание переменной y значения -3, если значение переменной x меньше или равно -2.
Присваивание переменной y значения x, если значение переменной x больше 0.
Присваивание переменной y значения -1*x, если значение переменной x больше 0.
Вывод значения переменной y с помощью функции write().
Ввод значения для завершения работы программы с помощью функции readln().