Kvadrat:
TextWindow.WriteLine ("Pravokutnik-kvadrat")
TextWindow.WriteLine ("Upiši stranicu pravokutnika a")
a= TextWindow.ReadNumber()
TextWindow.WriteLine ("Upiši stranicu pravokutnika b")
b= TextWindow.ReadNumber()

If (a=b) Then
  TextWindow.ForegroundColor="yellow"
  TextWindow.WriteLine ("Ovaj pravokutnik je kvadrat!")
Else
  TextWindow.ForegroundColor="cyan"
  TextWindow.WriteLine ("Ovaj pravokutnik nije kvadrat!")
EndIf
Goto kvadrat