alebo trochu normalnejsie

Dim pole(36)

For cislo_karty = 0 to 17
 opakuj
      nahodne_cislo = vygeneruj nove nahodne cislo od 0 do 35 (pouzi google)
 ked (pole(nahodne_cislo) sa nerovna -1)

 pole(nahodne_cislo) = cislo_karty

 opakuj
      nahodne_cislo = vygeneruj nove nahodne cislo od 0 do 35 (pouzi google)
 ked (pole(nahodne_cislo) sa nerovna -1)

 pole(nahodne_cislo) = cislo_karty
koniec cyklu For