Нужна помощь в паскаль абс сделать программы отдаю все баллы 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