vendor/bundle/ruby/3.4.0/gems/rouge-4.7.0/lib/rouge/demos/pascal


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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.