Составить алгоритм и программу вычисления функции f (x) при произвольном x:f (x) = { (2x+4, если-2≤x≤-1; 2x^2, если-12 функция f (x) не определена.

program zz1;

var x:real; / / задаем переменную не целого типа

begin

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

read (x);

if x < - 2 then write (' функция не определена '); / / в зависимости от введенного числа х и заданного диапазона выводим один из пяти ответов

if x > 2 then write (' функция не определена ');

if (x > = - 2) and (x < = - 1) then write (2 * x + 4);

if (x > - 1) and (x < = 1) then write (2 * x * x);

if (x > 1) and (x < = 2) then write (-2 * x + 2);

end.