Вычисление значения функции одного аргумента с выбором формулы

Найти: y=2,5ax, при x<0; y= cos (ln x/2 ), при 0 <=x<=1; y=exp(x), при x>1.

Program fun;
const a=0.5;
var x,y: real;
i: integer;
begin
writeln (‘Введите значение x’);
readln (x);
if x<0 then begin i:=1; y:=2.5*a*x end else if x<=1 then begin i:=2 ; y:=cos(ln(x/2)) end else begin i:=3; y:=exp(sqrt(x)) end; writeln ('x=',x:8:5,'y вычисляется по ',i,' формуле и равен', y:8:5); end

Пример работы программы:
Введите значение х
0.5
x=0.5 y вычислялся по 2 формуле и равен 0.18346

Комментарии запрещены.