Variabel Tabell1(1000)
Variabel Index typ integer
Variabel Räknare typ integer
Ge Räknare värdet 2
Addera 3 till Räknare
Upprepning:
    Addera 3 till Räknare
    Skriv Räknare
    Om Räknare > 15, avsluta upprepning
Slut på upprepning
Index ges värdet 1
Tabell1(Index)ges värdet Räknare
Index ges värdet 2
Tabell1(Index)ges värdet Räknare + 3
Index ges värdet 0
Upprepning:
   Index ger värdet + 1
   Skriv Tabell(Index)
   Om Index > 2, avsluta upprepning
Slut på upprepning





Skriv Tabell1(1)
Skriv Tabell1(2)