Приведем текст HTML-документа.

<HTML>
<HEAD>
<TITLE>Пример №1</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub Button1_OnClick()
  A = CInt(InputBox("Задайте 1-е число","Ввод данных" , "220", 600, 800))
  B = CInt(InputBox("Задайте 2-е число","Ввод данных" , "284", 600, 800))
  If (Sum_Del(B) = A) AND (Sum_Del(A) = B) Then
     MsgBox "Числа "&A&" и "&B&" дружественные", 64, "Дружественность"
  Else
     MsgBox "Числа "&A&" и "&B&" не дружественные", 16, "Дружественность"
  End If
End Sub

Function Sum_Del (ByVal X)
  Sum = 0
  i = 1
  Do While i < X
    If (X\i)*i = X Then Sum = Sum + i
    i = i + 1
  Loop
  Sum_Del = Sum
End Function
'-->
</SCRIPT>
</HEAD>
<BODY>
По нажатию кнопки запрашиваются два натуральных числа и проверяется, 
являются ли они дружественными (сумма делителей одного числа равна 
другому числу). 
<FORM>
<INPUT TYPE=BUTTON VALUE="Решение" NAME=BUTTON1>
</FORM>
</BODY>
</HTML>

Текст этой программы можно взять здесь.

Результат работы этого приложения изображен на рисунке 1:

Рис.1. Иллюстрация к примеру №1