Нужно сделать это уравнение поэтапно,чтобы получилось как на следующих фото.

Формулу сократить до 
1/6 (x - 4) (x - 5)
x!=-4
x!=5
и дальше что-то вроде

var
  x,y,z,s:integer;
begin
    writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))', в целых числах);
    writeln('Введите значение X);
    readln(x);
    y:=x-4;
    z:=x+5;
  if ((y=0) or (z=0)) then writeln('Значение функции не определено');
  else begin
    s:= 1/6*y*z;
    write('s =');
    writeln(s);
  end;
end.
не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.

Вот прогнал программку в АБС-Паскале,

var
x,y,z,s:real;
begin
writeln('Вычисление значения функции s=(x^2-10x+25)/(3x+12)/((2x-10)/(x^2-16))');
writeln('Введите значение X');
readln(x);
y:=x-4;
z:=x+5;
if ((y=0) or (z=0)) then writeln('Значение функции не определено')
else begin
s:= 1/6*y*z;
write('s =');
writeln(s);
end;
end.

Спасибо большое )