Составить программу для вычисления значения функции y= 0.5^x+3,x0

program zz1;var x, y:real; // задаем переменные не целого типаbeginwrite(\' введите заданное число x \'); // вводим с клавиатуры исходное число хread(x);if x < -8 then y:= 0.5*x+3; // проверяем, если заданное число меньше минус восьми, то вычисляем по одной формулеif (x >= -8) and (x<=0) then y:= sin(x-3);// проверяем, если заданное число меньше или равно нули и больше или равно минус восьми, то вычисляем по другой формулеif x > 0 then y:= 3*x-3;// проверяем, если заданное число больше нуля, то вычисляем по третьей формулеwrite(\'результат вычисления = \', y:5:2); //выводим ответ, пять знаков для всего числа и два знака после точкиend.