Sudan function: Difference between revisions

Content added Content deleted
(add REXX)
m (→‎{{header|Pascal}}: forget "Free " in sub- header)
Line 1,430: Line 1,430:


=={{header|Pascal}}==
=={{header|Pascal}}==
==={{header|Pascal}}===
==={{header|Free Pascal}}===
{{trans|Delphi}}
{{trans|Delphi}}
<syntaxhighlight lang="pascal">
<syntaxhighlight lang="pascal">