tìm hiểu chương trình nhận bik một số tự nhiên N được nhập vào từ bàn phím có phải là số nguyên tố hay không với in họ tên lớp của mình ra.

bạn xem trong hình nha

mình mới thi xong đó

Program so_nguyen_to

Uses crt;

var i,n,dem:Integer;

Begin

Clrscr;

writeln('........................');      (viết họ tên bạn vào chỗ chấm chấm là xong, cách này đơn giản hơn phải hong?>.<)

write('Nhap so nguyen duong 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,' khong phai la so nguyen to') Elseif dem=2 then writeln(n,' la so nguyen to');

Readln.

End.