Ответ:
1) program p1;
var a,b:real;
begin
writeln('введите a');
read(a);
b:=cos(abs(2,3*a))-abs(sin(7*a));
writeln(b);
end.
2) program p2;
var a,b:real;
begin
writeln('введите a');
read(a);
b:=(sqr(sin(sqr(a))))/3*a;
writeln(b);
end.
3) b:=sqrt(sin(x)/cos(x))-0,3;
4)b:=(5*a-3,4)/abs(1-a);
5)b:=(cos(7*a)-sin(sqr(a))/-1*a;