#include "protheus.ch"

User Function A02Ex06()  // Referente aos números pares
Local nNum := 1

While nNum <= 10

	If nNum % 2 == 0  // se a divisao de nNum por 2 resultar em ZERO como resto significa q nNum é par
		MsgAlert(nNum)
	EndIf

	nNum++
EndDo

Return