


Составить программу для вычисления следующей функции в Turrbo-Pascal

Ниже приведён пример программы на Turbo Pascal, вычисляющей заданное выражение:
---
```pascal
program CalculateX;
uses
crt;
var
a, k, p, x: real;
begin
clrscr;
writeln('Программа для вычисления функции:');
writeln(' p = a^2 + sqrt(k + 3)');
writeln(' x = ( sqrt(p) + sqrt(a - 2) ) / sin(k + 2 ) + sqrt( sin(p) )');
writeln;
write('Введите a: ');
readln(a);
write('Введите k: ');
readln(k);
{ Вычисляем p }
p := sqr(a) + sqrt(k + 3);
{ Вычисляем x }
x := ( sqrt(p) + sqrt(a - 2) ) / sin(k + 2 ) + sqrt( sin(p) );
writeln;
writeln('Результат вычисления x = ', x:8:4);
writeln;
writeln('Нажмите Enter для завершения...');
readln;
end.
```
### Пояснения к программе:
1. **Объявление переменных**:
- `a`, `k` – входные данные.
- `p`, `x` – промежуточная и итоговая переменные для расчётов.

В демонстрационном коде выше дополнительные проверки не внесены, однако при необходимости их можно добавить перед вычислением.