нужно написать программу в Free Basic

#include once "windows.bi"
' Печать в консоли по-русски'
Sub CPrint(szOut As String)
CharToOem szOut, szOut
print szOut
End Sub

Dim A(35) As Integer ' вспомогательный массив'
Dim K(35) As String  ' Названия карт'
Dim i As Integer
' Заполняем значениями вспомогательный массив'
For i = 0 To 35
	A(i)=i
Next

' Заполняем значениями  массив карт'

K(0)="6 бубей"
K(1)="6 червей"
K(2)="6 пик"
K(3)="6 треф"
K(4)="7 бубей"
K(5)="7 червей"
K(6)="7 пик"
K(7)="7 треф"
K(8)="8 бубей"
K(9)="8 червей"
K(10)="8 пик"
K(11)="8 треф"
K(12)="9 бубей"
K(13)="9 червей"
K(14)="9 пик"
K(15)="9 треф"
K(16)="10 бубей"
K(17)="10 червей"
K(18)="10 пик"
K(19)="10 треф"
K(20)="11 бубей"
K(21)="11 червей"
K(22)="11 пик"
K(23)="11 треф"
K(24)="12 бубей"
K(25)="12 червей"
K(26)="12 пик"
K(27)="12 треф"
K(28)="13 бубей"
K(29)="13 червей"
K(30)="13 пик"
K(31)="13 треф"
K(32)="14 бубей"
K(33)="14 червей"
K(34)="14 пик"
K(35)="14 треф"
' Перетасовка карт'
For i =0 To 35
	Swap A(i),A(Rnd(35))
Next

' Раздача карт игрокам'

CPrint "**********1 Игрок ***************"

For i = 0 To 5
	CPrint K(A(i))
Next
CPrint "**********2 Игрок***************"

For i = 6 To 11
	CPrint K(A(i))
Next
CPrint "**********3  Игрок***************"

For i = 12 To 17
	CPrint K(A(i))
Next
 Sleep