Написать программу, которая решает уравнения y=5x^2-sin0,5x-18 (PascalABC.)

program test;vary,x:real;beginwrite('Введите значение параметра x: ');readln(x);y:=5*x*x-sin(0.5*x)-18;writeln('Ответ: ',y);readln;end.