4.4BSD/usr/src/usr.bin/pascal/USD.doc/sin1.p

program sinout(output);
begin









write(sin(1,2));
end.