Відповідь:

var

 x, y: Real;

 result: Real;

begin

 // введення значень змінних x та y

 Write('Введіть значення x: ');

 ReadLn(x);

 Write('Введіть значення y: ');

 ReadLn(y);

 // обчислення виразу

 result := -5 * Sqrt(x + Sqrt(y));

 // виведення результату

 WriteLn('Результат: ', result);

end.