Hãy in ra màn hình các số nguyêu tố từ 1 đến 100

program phuongt;

uses crt;

  var d, i, j: integer;

begin 

           clrscr;

           writeln(‘Cac so nguyen to tu 1 den 100 la: ‘);

           for i:=2 to 100 do

           begin

                      d:=0;

                      for j:=1 to i do if i mod j = 0 then d:=d+1;

                      if d=2 then write(j:2);

           end;

           readln

end.