PROGRAM FIZZBUZZ(OUTPUT);
VAR   I: INTEGER;
      OUTFILE:TEXT;

BEGIN
 ASSIGN(OUTFILE, 'FIZZBUZZ.OUT');
 REWRITE(OUTFILE);
 I:= 1;
 WHILE I<=100 DO
  BEGIN
   IF (I MOD 3=0) AND (I MOD 5=0) THEN WRITELN(OUTFILE, 'FizzBuzz')
    ELSE IF (I MOD 3=0) THEN WRITELN(OUTFILE, 'Fizz')
    ELSE IF (I MOD 5=0) THEN WRITELN(OUTFILE, 'Buzz')
    ELSE WRITELN(OUTFILE, I);
   I:= I+1;
  END;
 CLOSE(OUTFILE);
END.