Test prime number by Pascal program language(Raw Vietnamese)

[Cơ bản]
Kiểm tra một số có phải là một số nguyên tố không bằng Pascal

Xác định bài toán
   Dữ liệu vào: Một số nguyên dương N
   Dữ liệu ra: Số nguyên dương N đó là số nguyên tố hoặc không phải là số nguyên tố

Ý tưởng
 * Định nghĩa số nguyên tố: Một số nguyên dương là một số nguyên tố khi số đó chỉ chia hết được cho 1 và cho chính nó
 * Nếu N <= 0 thì N không phải là một số nguyên dương
 * Nếu 0 < N < 4 thì N là một số nguyên tố
 * Nếu N >= 4 và không chia hết các số trong phạm vi từ 2 đến phần nguyên căn bậc 2 của N thì N chính là số nguyên tố

Thuật toán
   Bước 1: Nhập vào một số nguyên dương N
   Bước 2: Nếu N <= 0 thì thông báo N không phải là một số nguyên dương và kết thúc chương trình
   Bước 3: Nếu 0 < N < 4 thì thông báo N là một số nguyên tố và kết thúc chương trình
   Bước 4: i:=2
   Bước 5: Nếu i > căn bậc hai của N thì thông báo N là một số nguyên tố rồi kết thúc chương trình
   Bước 6: Nếu N chia hết cho i thì thông báo N không phải là số nguyên tố rồi kết thúc chương trình
   Bước 7: i := i+1 rồi quay lại bước 5

Thực hành trên Pascal
   Ở đây GitHackTools sử dụng Pascal XE. Mình đặt tên chương trình là Ai_la_so_nguyen_to (Ai là số nguyên tố)

Program Ai_la_so_nguyen_to;
Uses crt;
Var
   number, i:  Longint;
Begin
   Clrscr;
   write('Muon kiem tra so nao? ');
   Readln(number);
   i := 2;
   If number <= 0 Then Write('CAI DDEOS GI so day ma la so tu nhien a ?');
   If (number < 4) And (number > 0) Then write('ON GIOI so nguyen to DAY ROI!')
   Else
      Begin
         While (number Mod i <> 0) Or (i < number Div 2) Do
            i := i+1;
         If number Mod i <> 0 Then write('ON GIOI so nguyen to DAY ROI!')
         Else write(' DDEOS PHAI so nguyen to ROI!')
      End;
   Readln;
End.

Thử nghiệm

Tải về chương trình mẫu