Решите пожалуйста информатику очень прошу.

Хотябы одно задание.

1) 

vart,s:real;beginreadln(t);

if t>=8 thens:=exp(1/sqr(t))else if (t>-10) and (t<-8) thens:=sqrt(sqr(t)+4)elses:=sin(t);

writeln(s);end.

2) 

varx,y:real;beginreadln(x);

if x*(x+3)*(sqr(x)-4)>=0 theny:=x*(x+3)*(sqr(x)-4)else beginwriteln('net resheniy');exit;end;

writeln(y);end.