напишите программу которая для числа выводит значение тригонометрических функцийю 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.