program SinCos;
var
angle, sinValue, cosValue: Real;
begin
writeln('Введите значение угла в радианах: ');
readln(angle);

sinValue := sin(angle);
cosValue := cos(angle);

writeln('Синус угла равен: ', sinValue);
writeln('Косинус угла равен: ', cosValue);
end.

С помощью данной программы можно найти значение синуса и косинуса заданного угла в радианах.