Ответ:

1)

begin

 var b:=58;

 write('a = ',123*b+547)

end.

2)

begin

 var (a,c):=(34.3,189);

 write('x = ',sqr(a)-c);

end.

3)

begin

 var p:=32;

 var a:=p/64;

 write('y = ',(p/a)-sqr(a));

end.

4)

begin

 var (a,b,c) := (5,7,54);

 write('c = ',sqr(a)+5*b*c);

end.