PASKAL : вывести все простые числа в интервале от 1 до 50 (желательно с объяснением, очень срочно, проверьте у себя на ПК для достоверности) СПАСИБО БОЛЬШОЕ

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('N=');  for var i:=1 to n do begin    var (flag,j,r):=(True,2,Round(Sqrt(i)));    while flag and (j<=r) do      if i mod j = 0 then flag:=false      else j+=1;    if flag then Print(i)    endend.ПримерN= 501 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47