program N2;
var x,y:real;
begin
writeln ('Задание: Вычислить значение функции у=1/(х+2) - 4/(х-2).');
writeln ('Введите значение x');
readln (x);
if (x+2)<>0 and (x-2)<>0 then
\\на этой строке выдаёт "Нельзя преобразовать тип real к integer"
ставя курсор на (x-2)<>0
begin
y:=1/(x+2)-4/(x-2);
writeln('Значение функции равно ',y);
end
else writeln ('Не имеет значений при данном x');
end.

ТАДАААМ всё работает на ура, если вы конечно в формуле не ошиблись

Спасибо.

var x,y:real;beginwriteln ('Задание: Вычислить значение функции у=1/(х+2) - 4/(х-2).');writeln ('Введите значение x');readln (x);if ((x+2)<>0) and ((x-2)<>0) then {в это строке я просто (x+2)<>0  и (x-2)<>0  поставил в скобки}beginy:=1/(x+2)-4/(x-2);writeln('Значение функции равно ',y);endelse writeln ('Не имеет значений при данном x');end.