ОДЗ корня:
![x\geq7 x\geq7](https://tex.z-dn.net/?f=x%5Cgeq7)
, так что
![x\ \textless \ 4 x\ \textless \ 4](https://tex.z-dn.net/?f=x%5C+%5Ctextless+%5C+4)
в модуле получится не может, преобразовав его в
![12-3x 12-3x](https://tex.z-dn.net/?f=12-3x)
.
Программа:
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 убрать можно в принципе, но я сделал это для вида, типа модуль в выражении присутствует.