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

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