program calculationvax, y, z, G, H: realbegix := 2.367y := -1.057z := 3.025;
G := (2sin(x-2pi/3))/(1/2+cos(y)*cos(y))H := 1 + (power(z,5)/3 + power(z,5)/5);
writeln('G = ', G)writeln('H = ', H)end.
program calculation
va
x, y, z, G, H: real
begi
x := 2.367
y := -1.057
z := 3.025;
G := (2sin(x-2pi/3))/(1/2+cos(y)*cos(y))
H := 1 + (power(z,5)/3 + power(z,5)/5);
writeln('G = ', G)
writeln('H = ', H)
end.