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

program zz1;

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

begin

write (' введите заданное число 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.