What is your FizzBuzz solution? Any comments on mine?
If this is an interview question, what are you looking for?
Here is FizzBuzz in over 150 languages.
For the record, I spent no more than three minutes to write this. :-)
program FizzBuzz;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var
i: integer;
WriteNumber: Boolean;
begin
try
for i := 1 to 100 do
begin
WriteNumber := True;
if i mod 3 = 0 then
begin
Write('Fizz');
WriteNumber := False;
end;
if i mod 5 = 0 then
begin
Write('Buzz');
WriteNumber := False;
end;
if WriteNumber then
begin
Write(i);
end;
WriteLn;
end;
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.