Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры) В Basic - 256.... Составить не менее 2 видов циклов.

input as=0for i=a to 50s=i^2+snext iprint sИЛИinput as=0while a<=50s=s+a^2a=a+1end whileprint s

Dim a As Integer, i As Integer, s As Stringa = InputBox("Введите число а")For i = a To 50s = s + "," + CStr(i * i)NextMsgBox sa = InputBox("Введите число а")i = a: s = ""Do While i < 51s = s + "," + CStr(i * i)i = i + 1LoopMsgBox s