帮忙看一下这个程序

dddj

请帮忙看一下，这个程序是以什么样的方式（语法，结构，指令集等），违反Dartmouth-BASIC编程准则的。谢谢谢谢大家了！！！
10 cls
20 input "Obere Grenze:" ; a
30 for i = 1 to a step 2
40      for p = 3 to int(sqr(i))
50          if i/p = int(i/p) then goto 80
60     next p
70     print i;
80 next i
90 print
100 end