RosettaCodeData/Task/FizzBuzz/SheerPower-4GL/fizzbuzz.4gl

14 lines
208 B
Text
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
declare integer i%
for i% = 1 to 100
if i% mod 15 = 0 then
print 'FizzBuzz'
elseif i% mod 3 = 0 then
print 'Fizz'
elseif i% mod 5 = 0 then
print 'Buzz'
else
print i%
end if
next i%