uses crt;
var i,m,dem:longint;
function ktnt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while a mod i<>0 do inc(i);
   ktnt:=i=a;
end;
begin
clrscr;
   repeat write('M=');readln(m); until(2<m)and(m<2018);
   i:=1;
   repeat
      inc(i);
      if ktnt(i) then inc(dem);
   until dem=m;
   writeln(i);
readln
end.

///////////////////////////////////////////

Giải thích:

Nhập:nhập cho đến khi thỏa mãn điều kiện với repeat until

Tăng i lên nếu i là số nguyên tố thì tăng đếm lên, cứ là việc này cho đến khi dem =m tức là i là số nguyên tố thứ m.

Sau đó xuất i!

Nếu có gì không hiểu hay code mình sai thì để lại bình luận nhé!

Một số text cho bạn tham khảo:

program oken;
uses crt;
var i,j,m,d1,d2: integer;
begin
    clrscr;
    repeat
        write('Nhap M: '); readln(m);
    until (m>=2) and (m<=2018);
    d1:=0;
    for i:=2 to 2018 do
        begin
            d2:=0;
            for j:=1 to (i div 2) do
                if (i mod j=0) then
                    d2:=d2+1;
            if (d2=1) then
                d1:=d1+1;
            if (d1=m) then
                begin
                    write('So nguyen to o vi tri thu ',m,': ',i);
                    break;
                end;
        end;
    readln;
end.