sử dụng câu lệnh while…do viết chương trình nhập 1 số bất kì. kiểm tra số đó có phải là số nguyên không?

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.