напишите программу пожалуйста

Var y:real;x:integer;

Begin

For x:=-6 to 6 do

If (x<>-4)and (x<>4) then begin

Writeln;

Y:=(x-4)/(x+4)+(x+4)/(x-4);

Write('При x=', x, ' y=', y) ;end

Else begin writeln;write('Нет смысла') ;end;

End.