11 lines
201 B
ObjectPascal
11 lines
201 B
ObjectPascal
|
begin
|
||
|
|
for var i:=1 to 100 do
|
||
|
|
if i mod 15 = 0 then
|
||
|
|
Print('FizzBuzz')
|
||
|
|
else if i mod 3 = 0 then
|
||
|
|
Print('Fizz')
|
||
|
|
else if i mod 5 = 0 then
|
||
|
|
Print('Buzz')
|
||
|
|
else Print(i)
|
||
|
|
end.
|