ОДЗ корня:
, так что
в модуле получится не может, преобразовав его в
.
Программа:
program apsojfskd;
var x:integer;
a, b, c:real;
beginreadln (x);
a:=2*x-17*sqrt(x-7);
b:=3*x-12;
if x > 4 then b:=3*x-12;
if x < 4 then b:=12-3*x;
c:=a/b;
writeln (c);
end.
Строки с if убрать можно в принципе, но я сделал это для вида, типа модуль в выражении присутствует.