program TrigonometryFunctions;

var
x: real;
func: integer;

begin
writeln('Введите значение x: ');
readln(x);

writeln('Выберите номер тригонометрической функции:');
writeln('1 – sin(x), 2 – cos(x), 3 – tg(x), 4 – ctg(x)');
readln(func);

case func of
1: begin
writeln('Результат вычисления sin(x): ', sin(x));
end;
2: begin
writeln('Результат вычисления cos(x): ', cos(x));
end;
3: begin
writeln('Результат вычисления tg(x): ', tan(x));
end;
4: begin
writeln('Результат вычисления ctg(x): ', 1 / tan(x));
end;
else
writeln('Неверно выбран номер функции.');
end;

readln;
end.