Составить программу на языке Pascal. Дано: x - произвольное число. Найти: sin, cos, √x

Предыдущий
вопрос Следующий
вопрос

program calculation;
var x, s, c, r: real;
begin
// Ввод числа x
write('Введите число x: ');
readln(x);

// Вычисление sin(x), cos(x) и √x
s := sin(x);
c := cos(x);
r := sqrt(x);

// Вывод результатов
writeln('sin(x) = ', s:0:2);
writeln('cos(x) = ', c:0:2);
writeln('√x = ', r:0:2);

end.