Mình có ví dụ như như này: bạn đang cần nhập 5 số nguyên và xuất các số trong số chúng là số nguyên tố. Bạn đi thực hiện câu lệnh kiểm tra và xuất cho từng số thì rất thời gian và chương trình sẽ dài. Nhưng với một chương trình con ví dụ như sau: 

Procedure nt(a:longint);

var i:longint;

begin

     i:=2;

     while (i>1)and(a mod i<>0) do inc(i);

     if i=a then writeln(a,' la so nguyen so) else writeln(a,' khong la so nguyen so);

end;

Bạn chỉ cần gọi nó 5 lần để thực hiện, thật tiện lợi phải không nào?

Ví dụ: nhập số nguyên n, kiểm tra số đó có phải là số chẵn không.

function check(n:longint):boolean;
        begin
                if n mod 2=0 then check:=true
                else check:=false;
        end;

Bây giờ bạn cần thực hiện 5 lần dãy lệnh trên.