2BSD/doc/pascal/sin1.p

program sinout(output);
begin









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