Даю 35 баллов Вычисления в Паскаль: Помогите пожалуйста!

Question

Даю 35 баллов
Вычисления в Паскаль:
Помогите пожалуйста!

---

Answer 1

 program zadacha1;
  var x, y, k, h:Real;
Begin
  write('x=');Read(x);
     h:=exp(3*ln(x));
     k:=exp(5*ln(x));
     y:=x-h/3+k/5;
  Writeln('y=',y);
end.
 Program zadacha2;
  var x, y, h:Real;
Begin
   write('x=');Read(x);
   Write('y=');Read(x);
      h:=sqr(1/2)-cos(x)+sin(2*x*y);
   writeln('h=',h);
end.
 Program zadacha4;
  var x, y, h:real;
begin
   write('x=');Read(x);
    h:=abs(exp(4*ln(x))-exp(5*ln(x)));
    y:=x- 10*sin(x)+h;
   write ('y=',y);
end.