[semiono]

Готово!

Код:

$a = 440 / 17
$sOut = ''
For $n = 0 To 17 * 5 + 1
    $sOut &= '(' & $n+1 & ') ' & Round($a * 17 ^ ($n / 43), 2) & @LF
Next
$file = FileOpen('17@43.hz',10)
		FileWrite($file,$sOut)
		FileClose($file)