===== PascalABC.NET =====

begin

 var a := ReadReal('Введи значение синуса угла:');

 var b := Sqrt(1 - a * a);

 Print('Коснус этого угла равен', b)

end.

Пояснение: sin²x + cos²x = 1