Chương trình kiểm tra số nguyên tố nhé.Vì nhập vào số nguyên thì nó là số nguyên,nhập vào số thực thì nó là số thực rồi
Program Hotboy;
Uses crt;
Var n, i:integer;
Ntn: boolean;
Begin
Ntn:=true;
Write('Nhap n');
Readln(n);
For i:= 2 to n - 1 do
( if n mod i = 0 ) then ntn :=false;
If ntn then write(n,' la so nguyen to')
Else
Write(n, ' khong la so nguyen to');
Readln
End.