Для Pascal:
Как вариант, можно возвести в квадрат и тут же из него взять корень
y := sqrt((x-1)(x-1)) + sqrt((x-4)(x-4))
Однако, для этого y должен быть объявлен как вещественный тип (real, double), поскольку функция взятия корня возвращает вещественный тип, и потому в целочисленном y сохраниться не может.
Исходный код в приложении.
