VI/18

program VI;//название
var//объявление переменных
x:real;//вводимый аргумент x
begin
    ReadLN(x);
    WriteLN(sqrt(x * x + 1) - sqrt(x * x + 5));//подкоренные выражения всегда больше нуля, поэтому просто вывод функции
end.