Пожалуйста посчитайте 1 и 2)))))))Написать программу))

1) program zadacha;
var a,y:real;
begin
read(a);
y:=12*sqrt(power((a+sqr(a)+power(a,5)+power(a,7)),3))+sqrt(abs(sqr(a)-1))+7*a;
write(y);
end.


2) program zadacha;
var a,b:real;
begin
read(b);
a:=abs(power(b,5))-sqrt(b)+b;
write(a);
end.