1 câu trả lời
program SONGUYENTO;
uses crt;
var a,b,i: integer;
BEGIN
clrscr;
Write('Nhap so nguyen duong bat ki: '); readln(a);
b:=1;
for i:=1 to (a div 2) do
if a mod i = 0 then b:=b+1;
if b=2 then writeln('Day la so nguyen to')
else writeln('Day khong la so nguyen to');
readln;
END.
