Ответ:

1)

begin

 var a:=10;

 writeln('x = ',38*a-40);

end.

2)

begin

 var x:=2;  

 var z:=3;

 writeln('y = ',Power(x,3)+4*z);

end.

3)

begin

 var x:=98;  

 var y:=x/2;

 writeln('z = ',(x/y)-x*y);

end.

4)

begin

 var b:=2;  

 var c:=3;

 var d:=4;

 writeln('a = ', sqr(b)+sqr(c)-d);

end.