Вычислить значение функции(или функция не определена), значение х вводится с клавиатуры

[Safok]

Вычислить значение функции(или функция не определена), значение х вводится с клавиатуры

[www_www]

Можно картинку покачественнее?

[Stilet]

Врядли. Павельитель фасанул, так чо надо выполнять, иначе шмэрть придет. Кознят посредством козней.

var x:double;
begin
 read(x);
 if (x>=0)and(x<=0) then write(exp(-x*1)*(3*x*x+1)) else
 if (x<=0)and(x>=-0) then write(30*x) else
 write('Прости, повелитель, я не справился!!!!!!');
 readln;
end.