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

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

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.

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

Формулу сократить до 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.не уверен насчёт синтаксиса, где-то может быть лишние точка с запятой, проверьте.