Напишите программу которая для числа выводит значение тригонометрических функцийю sin и cos например вводим 180 программа выводит sin (180) = 0 и cos (180) = -1

uses Crt;

var alfa, a, s, c:real;

begin

ClrScr;

Write (' alfa = ');

ReadLn (alfa);

a: = alfa*pi/180;

s:=sin (a);

c:=cos (a);

WriteLn;

WriteLn ('sin',' (', alfa:3:0, ') = ', s:6:2);

WriteLn ('cos',' (', alfa:3:0, ') = ', c:6:2);

ReadLn;

end.