Александр Гусев

uses math;//вроде как
procedure........
var
x,y:real;
begin
x:=strtofloat(edit1.text);//откуда-то прочитали х
if x<-1 then y:=abs(1+sqr(sin(x)))
else
if x>1 then y:=1-x*x+x
else y:=x+1;
label1.caption:=floattostr(y); //куда-то вывели
end;