x=0
a=Rand(10)
b=Rand(10)
c=Rand(10)
d=Rand(10)
e=Rand(10)
f=Rand(10)
g=Rand(10)
h=Rand(10)
i=Input()
Cls
Locate 0,0
j=Input(i)
Cls
Locate 0,0
k=Input(ij)
Cls
Locate 0,0
l=Input(ijk)
Cls
Locate 0,0
m=Input(ijkl)
Cls
Locate 0,0
n=Input(ijklm)
Cls
Locate 0,0
o=Input(ijklmn)
Cls
Locate 0,0
p=Input(ijklmno)
If a=i Then x=x+1
If b=j Then x=x+1
If c=k Then x=x+1
If d=l Then x=x+1
If e=m Then x=x+1
If f=n Then x=x+1
If g=o Then x=x+1
If h=p Then x=x+1
Cls
Locate 0,0
Print "Arvauksesi oli "+i+j+k+l+m+n+o+p
Print "Oikea vastaus oli "+a+b+c+d+e+f+g+h
Print "Sait "+x+" oikein!"
WaitKey
End