Составить программу для вычисления данного выражения: 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.