Fizz Buzz

Escrever um programa que imprima os números de 1 a 100 (um em cada linha). No entanto, o programa deve imprimir "Fizz" em vez dos múltiplos de 3 e "Buzz" em vez dos múltiplos de 5. Para os números que são múltiplos de tanto 3 como 5, o programa deve imprimir "FizzBuzz".

Exemplo de output:

1
2
Fizz
4
Buzz
Fizz
7
(...)

program FizzBuzz;

var
  i: integer;

begin
  for i := 1 to 100 do
  begin
    if i mod 3 = 0 then
      write('Fizz');
    if i mod 5 = 0 then
      write('Buzz');
    if (i mod 3 <> 0) and (i mod 5 <> 0) then
      write(i);
    writeln;
  end;
end.

Programa compilado + output

Tópico de discussão no fórum: FizzBuzz - Nível de aprendizagem