Bahasa Pascal Fungsi Sinus Trigonometri

Ini merupakan bahasa pemrograman untuk fungsi sinus pada materi trigonometri.
program fungsi_sinus;
uses wincrt;
var y, alfa : real;
begin
write (‘sudut alfa =’);
read (alfa) ;
y:= sin (alfa*pi/180);
write(y:3:2);
end.