Даны алгоритмы и из них нужно сделать работающую программу на ...

Вера

var a,b,x,y,z,p,g,c,d: real;
begin
readln(a,b,x,y,z);
p:=(x*ln(y)+sin(z))/(x+y);
g:=exp((1/3)*ln(y/((z+p)*(z+p))));
c:=exp(z*ln(d))+p/g;
d:=(p*sqrt(a)+g*sqrt(b))/(a*x*x+b*y+c);
writeln('p=',p,'; g=',g,'; c=',c,'; d=',d);
end.