andrypein.net : Fizzbuzz adalah algoritma random, algoritmanya bisa dilihat baris yang aing quote, sekarang kita coba fizzbuzz pascal.
Quotes :
dari 1 sampai seratus
setiap kelipatan 3 cetak fizz
setiap kelipatan 5 cetak buzz
setiap kelipatan 3 dan lima cetak fizzbuzz
sisanya cetak angka
Penampakan aplikasi fizzbuzz pascal akan jelas panjang karena pengulangannya sampai 100.
Bisa ko tinggal ganti saja 100 nya dikurangin lah. 
var
nomor : integer;
begin
for nomor:=1 to 100 do
begin
if (nomor mod 3 = 0) and (nomor mod 5 =0) then
writeln('Fizzbuzz')
else if (nomor mod 3 = 0) then
writeln('Fizz')
else if (nomor mod 5 = 0) then
writeln('Buzz')
else
writeln(nomor);
end;
end.
