Дана следующая функция y=f (x) : y = 2x - 10, если x > 0 y = 0, если x = 0 y = 2 * |x| - 1, если x < 0 Требуется найти значение функции по переданному x.

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write (' введите исходное значение х '); / / вводим с клавиатуры исходное значение х

read (x);

if x < 0 then y:=2 * x - 1; / / вычисляем значение функции при отрицательном х

if x = 0 then y:=0; / / вычисляем значение функции при х равным нулю

if x > 0 then y:=2 * x - 10; / / вычисляем значение функции при положительном х

write (' полученное значение функции y = ', y); / / выводим ответ

end.