xref: /386bsd/usr/src/share/doc/ps1/04.pascal/sin1.p (revision a2142627)

program sinout(output);
begin









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