Помогите пожалуйста.

Для проверки нужно прислать коды программ и результаты их работы.
(если вам будет удобно, пришлите именно скрины с программы)

program equats;

uses math;

var x:real;

function first(n:real):real;

begin

   first := n - n**3 / 3 + x**5 / 5;

end;

function second(n:real):real;

begin

   second := 2**(-n) - cos(x) + sin(2*n*first(n));

end;

function third(n:real):real;

begin

   third := (x**2 - 7 * x + 10) / (x**2 - 8 * x + 12);

end;

function fourth(n:real):real;

begin

   fourth := x - 10 * sin(x) + abs(x**4 - x**5);

end;

begin

writeln('Введите "x": ');

readln(x);

writeln('1.Result:= ', first(x):4:4);

writeln('2.Result:= ', second(x):4:4);

writeln('3.Result:= ', third(x):4:4); // если ввести 2 или 6 в знаменателе будет ноль :(

writeln('4.Result:= ', fourth(x):4:4);

end.