Contoh Program Pascal Program Rekursi untuk mencari FPB (Faktor Persekutuan Terbesar) dari 2 buah bilangan bulat Contoh: Var m, n : integer; Function FPB (m, n : integer): integer; Begin If (m=0) then FPB := n Else if (m<n) then FPB := FPB (n,m) Else FPB := FPB (m mod n, n); End; Begin {Program Utama} write ('Masukkan Bilangan I ='); Readln (m); Write ('Masukkan Bilangan II ='); Readln (n); Writeln; Writeln ('Hasil FPB = ',FPB (m,n)); Readln; End.