4.3BSD/usr/doc/ps1/04.pascal/sin2.p

program sinout(output);
begin









write(sin('*'));
end.