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?