Составьте программы на Паскаль для вычисления выражений:

var x,y1,y2,y3:real;beginreadln(x);y1:=exp(ln(x)*8);y2:=exp(x-2)*(x-5);y3:=sin(x-5);writeln(y1:5:3,'  ',y2:5:3,'  ',y3:5:3);end.Пример:1.8110.200 -2.620 0.058