Нужна помощь в паскаль абс сделать программы
отдаю все баллы 75 нужно написать в программе чтобы в низу получился эти примеры

Program prog;
var x:real;
begin
writeln((sqrt(10)+1)/(6.25-1.8));
writeln(100*sin(4));
write(x = );
readln(x);
writeln(100*sin(x));
writeln(2*sin(3));
writeln(sqrt(sqrt(5)+sqrt(6)));
end.

Пример:
0.935343294419861
-75.6802495307928
x = 2
90.9297426825682
0.282240016119734
2.16461491269994