pas-fizzbuzz

pas-fizzbuzz.pas

PROGRAM FIZZBUZZ;

PROCEDURE FIZZ_BUZZ(N: INTEGER);
VAR
        I: INTEGER;
BEGIN
        FOR I := 1 TO N DO BEGIN
                IF I MOD 15 = 0 THEN BEGIN
                        WRITELN('FizzBuzz');
                END ELSE IF I MOD 5 = 0 THEN BEGIN
                        WRITELN('Buzz');
                END ELSE IF I MOD 3 = 0 THEN BEGIN
                        WRITELN('Fizz');
                END ELSE BEGIN
                        WRITELN(I);
                END
        END
END;

BEGIN
        FIZZ_BUZZ(100);
END.