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