Составить программу, вычисляющую значение выражения по формуле х+1/х-1+18ху

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