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

var x,y1,y2,y3:real;
begin
readln(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.8
110.200-2.6200.058