Срочно! Составить программу вывода всех простых трехзначных чисел используя for to
99б

Спасибо большое!

Пожалуйста

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  for var i:=100 to 999 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.