Определить все простые двузначные числа. Есть предположение, что решается именно…

var prost: array [1… 100] of integer; i, max, n, j: integer; is_prost: bool; Begin max: =99; prost[1]: =2; n: =1; for i: =2 to max do begin is_prost: =true; for j: =1 to n do begin is_prost: =is_prost and not (i mod prost[j]=0); end; if is_prost then begin n: =n+1; prost[n]: =i; end; end; for i: =1 to n do if prost[i] > 9 then write (prost[i], '); End.