помогите решить задание №6 и 7,хотя бы 7,срочно!!!!!!

7.

var b,x:integer;

begin

readln(b);

readln(x);

if b>-20 then write('y = ',71*b*x)

else write('y = ',22*b);

end.

6.

var a,x:integer;//возможно real

begin

readln(a);

readln(x);

write('y = ',(1-3*sqr(a))/sqrt(3*x*x*x+21*sqr(a)):0:3)

end.