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