Contoh Program Periksa Bilangan dengan Free Pascal

program PERIKSA_BILANGAN;
var
bil : integer;
begin
write ('ketikkan sembarang bilangan bulat : ');
readln (bil);
if bil mod 3 = 0 then
writeln ('bilangan bulat habis dibagi 3 : ')
else
writeln ('bilangan bulat tidak habis dibagi 3 : ');
readln;
end.