NetBSD/share/doc/ps1/04.pascal/sin1.p

14 lines
61 B
OpenEdge ABL

program sinout(output);
begin
write(sin(1,2));
end.