Перевод программы из Паскаля в Ассемблер

[ArcadianMan]

Помогите пожалуйста с решение задачи на ассемблере

Найти n-е простое число, 0<n<30000
ПРимер: 3 -> 5 (1-е простое число – 2, второе – 3, третье – 5)

Есть рабочая программа на паскале:
program simple;
var
  is_prime: array[1..15485863] of boolean; jj: integer;
 
procedure dosieve(limit: integer);
var
  i, k, x, y: integer; n: integer;
begin
  for i := 5 to limit do
    is_prime[i] := false;
  for x := 1 to trunc(sqrt(limit)) do
    for y := 1 to trunc(sqrt(limit)) do
    begin
      n := 4 * sqr(x) + sqr(y);
      if (n <= limit) and ((n mod 12 = 1) or (n mod 12 = 5)) then
        is_prime[n] := not is_prime[n];
      n := n - sqr(x);
      if (n <= limit) and (n mod 12 = 7) then
        is_prime[n] := not is_prime[n];
      n := n - 2 * sqr(y);
      if (x > y) and (n <= limit) and (n mod 12 = 11) then
        is_prime[n] := not is_prime[n];
    end;
  for i := 5 to trunc(sqrt(limit)) do
  begin
    if is_prime[i] then
    begin
      k := sqr(i);
      n := k;
      while n <= limit do
      begin
        is_prime[n] := false;
        n := n + k;
      end;
    end;
  end;
  is_prime[2] := true;
  is_prime[3] := true;
end;
 
var
  i, n, count: integer;
 
begin
  dosieve(15485863);
  repeat
    write('n = '); readln(n)
  until (n >= 1) and (n <= 30000);
  
  count := 0; i := 0;
  repeat
    inc(i);
    inc(count, ord(is_prime[i]));
  until count = n;
  writeln(i);
end.

______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[digitalis]

Нет ничего проще.
Откомпилировать паскалевскую прогу, из .exe вытащить нужную часть кода и декомпилировать.

[Pavia]

Нет ничего проще:
https://godbolt.org/z/ro5XfD