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

program zz1;
var x:real; // задаем переменную не целого типа
begin
write(введите начальное значение х ); // вводим с клавиатуры начальное значение х
read(x);
if x lt; -2 then write( функция не определена ); // в зависимости от введенного числа х и заданного спектра выводим один из 5 ответов
if x gt; 2 then write( функция не определена );
if (x gt;= -2) and (x lt;= -1) then write(2 * x + 4);
if (x gt; -1) and (x lt;= 1) then write(2 * x * x);
if (x gt; 1) and (x lt;= 2) then write(-2 * x + 2);
end.