viết chương trình nhập vào các số nguyên tố từ 2 đến n,với n là số nguyên nhập từ bàn phím pascal nhaaaa

var i,j,n:longint;
    nt: boolean;
begin
  writeln('Nhap n:');
    readln(n);
  writeln('Cac so nguyen to tu 2 den ', n, ' la:');
  for i:=2 to n do
begin
    nt:=true;
    for j:=2 to trunc(sqrt(i)) do
begin
      if i mod j=0 then
begin
        nt:=false;
    break;
 end;
   end;
    if nt then writeln(i);
end;
  readln;
end.