Помогите написать программу 17 задания)заранее спасибо))

и ещё это же программа системы?)

mbok кнопка ,mtinformation тип сообщения

не знаю,что такое программа системы

ну задание,программа составлена для системы уравнений)

условие не похоже на систему

procedure button1. click..;var x,y:real;code:integer;beginval(inputbox('ввод числа','введите x',''),x,code);if (x<=-1) then y:=power(x,4)+sqrt(2) else if (x<1) and (x>-1) then y:=tan(x)else y:=exp(x)+ln(x);messagedlg('y= ' + floattostr(y),mtinformation,[mbok],0);end;в uses classes,sysutils,forms... допиши math