uses crt;
var i,n ,dem:integer;
begin
clrscr;
Write( 'nhập số nguyên dg n ');readln(n);
dem:=0;
for i:=1 to n do if n mod i = 0 then dem:=dem+1;
if(n<2) or (dem< >2) then writeln (n,'0 phải là số nguyên tố ')
else if dem=2 then writeln(n,' là số nguyên tố ');
readln