provjera A polja
i = 0
start:
a[i] = TextWindow.ReadNumber()

If  0 < a[i] And a[i] <= 50 Then
  TextWindow.WriteLine("uspjesan unos")
Else
  i = i+1
  Goto start
EndIf
'Provjera B polja
i1 = 0
start1:
b[i1] = TextWindow.ReadNumber()

If  5 <= b[i1] And b[i1] <= a[i] Then
  TextWindow.WriteLine("uspjesan unos")
Else
  i1 = i1+1
  Goto start1
EndIf
' Ispisivanje krivo unesenih brojeva
TextWindow.WriteLine("")
TextWindow.WriteLine("krivo uneseni pokusaji")
f = Array.GetItemCount(a)
g = f -1
r = 0
For s = 1 To g
  TextWindow.WriteLine(a[r])
  r = r+1
  endfor

  f1 = Array.GetItemCount(b)
g1 = f1 -1
r1 = 0
For s1 = 1 To g1
  TextWindow.WriteLine(b[r1])
  r1 = r1+1
  endfor