FizzBuzz: Difference between revisions
→{{header|Perl}}: Add Pascal.
(→{{header|AutoHotkey}}: Add AppleScript version.) |
(→{{header|Perl}}: Add Pascal.) |
||
Line 1,954:
))
)}</lang>
=={{header|Pascal}}==
<lang pascal>program fizzbuzz(output);
var
i: integer;
begin
for i := 1 to 100 do
if i mod 15 = 0 then
writeln('FizzBuzz')
else if i mod 3 = 0 then
writeln('Fizz')
else if i mod 5 = 0 then
writeln('Buzz')
else
writeln(i)
end.</lang>
=={{header|Perl}}==
| |||