Объяснение:
Sub Kvadrat
Dim n As Long, i As Long
Cls
Input "n = ", n
i = 1
Do
Print i^2 & "; "
i = i + 1
Loop Until i > n
End Sub
