Free Basic
Дано натуральное число n. Вывести все простые делители данного числа.

Dim As Integer n, k, i, jPrint "Введите n"Input nFor i = 2 To n / 2   If n Mod i = 0 Then    k = 0    For j = 2 To Sqr(i)        If i Mod j = 0 Then k = k+1    Next j    If k = 0 Then Print i;    End IfNext iПример:Введите n52 2 13