nhập vào số nguyên n n lớn hơn 0 In ra các ước của n kiểm tra xem n có phải là số nguyên không Nếu là số nguyên tố thông báo 1 Nếu không là số nguyên tố thông báo 0 (free pascal)

var n,i,s:longint;
begin
   write('Nhap vao so nguyen duong n: ');
   readln(n);
   writeln('Cac uoc cua so ', n, ' la:');
   s:=0;
   for i:=1 to n do
      if (n mod i = 0) then
      begin
         writeln(i);
         s:= s + 1;
      end;
   if (s = 2) then
      writeln('So ', n, ' la so nguyen to.')
   else
      writeln('So ', n, ' khong phai la so nguyen to.');
end.

var n,i,d: int64;
begin
    readln(n);
    d:=0;
    for i:=1 to n do if n mod i = 0 then begin
        write(i,' ');
        d:=d+1;
    end;
    writeln;
    if d=2 then write(n,' la so nguyen to')
    else write(n,' khong la so nguyen to')
end.