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

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.