===== Zählschleife mit einer Berechnung von Quadratwurzeln =====


<code qbasic>
10 FOR A = 1 TO 100
20 PRINT A,SQR(A)
30 NEXT A
</code>