Program so_nguyen_to;
Uses Crt;
Var n,i:integer;
Begin
Clrscr;
Writeln ('Nhap vao mot so nguyen duong:');
readln (n);
If n<=1 then writeln ('N khong pha la so nguyen to')
Else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln (n,'la so nguyen to')
else writeln (n,'khong phai la so nguyen to');
end;
readln;
End.
Cho mình xin CTLHN nha. Chúc bạn học tốt