here's the code for scrutiny

Code:
for i := 1 to 100 do
           begin
              if (i mod 15=0) then
              write('BUZZ FIZZ':10)
              else
              if (i mod 5=0) then
              write('FIZZ':10)
              else
              if (i mod 3=0) then
              write('BUZZ':10)
              else
              write(i:10)
            end;
        writeln;
        writeln;
        writeln ('Press <Return> to continue');

        readln();
              end.