Составить программу для вычисления данного выражения: Y=1/SQR(x)-13x/(x^2-36)-18

program zz1;
var x:integer; // задаем переменную целого типа
y:real; // задаем переменную не целого типа для ответа
begin
write(введите данное число х ); // вводим с клавиатуры начальное число х
read(x);
y:=1/sqr(x) - 13 * x/(x * x - 36) - 18; // вычисляем результат по данному выражению
write( итог вычисления данного выражения = , y:5:2); // выводим ответ, пять символов для всего числа и два знака после точки
end.