Вычислить значение выражений

uses crt;
var x,w,y:real;
begin
x:=-3;
while x<3.2 do
 begin
  if x<=0.1 then w:=sqr(sin(x))+4*x
  else if x<2 then w:=exp(ln(x)/3)+ln(x)
  else w:=2.6*x*x-3.7;
  y:=ln(w*w+w+1)*cos(4*x)/(exp(-2*w)+2);
  writeln('x=',x:4:1,'  w=',w:8:4,'  y=',y:13:10);
  x:=x+0.4
 end;
end.

uses crt;
const y=2.25;
var x,z:integer;
    s,p:real;
begin
p:=1;
for x:=1 to 7 do
 begin
  s:=0;
  for z:=3 to 10 do
  s:=s+arctan(y/z+x/y)/exp(ln(abs(y-x-z))/3);
  s:=s+exp(ln(2.3)*4/x)*abs(y-x)/sqrt(x*x+y*y+1.5);
  p:=p*s;
 end;
write('P=',p:0:2);
end.

var a,b,z,x,y:real;
begin
x:= 17.421;
y:= 10.365;
z:= 0.828;
a:=exp(1/4*(y)+(exp(1/3*(x-1))));
b:=abs(x-y)*(sqr(sin(z))+sin(z)/cos(z));
writeln('a=' ,a:5:3);
writeln('b=' ,b:5:3);
end.

var a,b,z,x,y:real;
begin
x:= 17.421;
y:= 10.365;
z:= 0.828;
a:=exp(ln(y+(exp(ln(x-1))/3))/4);
b:=abs(x-y)*(sqr(sin(z))+sin(z)/cos(z));
writeln('a=' ,a:6:3);
writeln('b=' ,b:6:3);
end.