Текст HTML-документа будет следующим:

<HTML>
<HEAD>
<TITLE>Пример №2</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub Button1_OnClick()
  N = CInt(InputBox("Задайте N","Ввод данных" , "1", 600, 800))
  M = CInt(InputBox("Задайте M","Ввод данных" , "10", 600, 800))
  Flag = 0 'Наличие троек.
  'Переход на новую строку.
  NS = Chr(10)&Chr(13)  
  S = "Пифагоровы тройки:"'Строка вывода.
  i = 1 
  Do 
    j = i
    Do
     k = 1
     Do
      If i*i + j*j = k*k Then 
           S = S&NS&i&" "&j&" "&k
           Flag = 1 'Найдена тройка.
      End If
      k = k + 1
     Loop While k <= M
     j = j +1
    Loop Until j > M
    i = i + 1
  Loop While i < M+1
  If Flag = 0 Then S="Пифагоровых троек нет на промежутке от "&N&" до "&M
  Alert S
End Sub
'-->
</SCRIPT>
</HEAD>
<BODY>
По нажатию кнопки запрашиваются два натуральных числа и выводятся все
различные пифагоровы тройки из заданного интервала.
<FORM>
<INPUT TYPE=BUTTON VALUE="Решение" NAME=BUTTON1>
</FORM>
</BODY>
</HTML>

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

Рисунок 1 отображает работу браузера.

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