Напишите программу языком бэйсик "напечатать таблицу соответствия между квадратными метрами и гектарами для значений от 0.5 га до 6.5 га с шагом 0.5га"

' Цикл While
Dim GA as Double
GA = 0.5
Do While GA <= 6.5
print GA, " га = "; GA * 10000, " квадратных метров"
GA = GA + 0.5
Loop

' Цикл For
Dim X as Double
PRINT "X" , "Y"
FOR X=0.5 TO 6.5 STEP 0.5
PRINT X , X*10000
NEXT

' For с двумя переменными
Dim X as Double
Dim Y as Double
PRINT "X" , "Y"
FOR X=0.5 TO 6.5 STEP 0.5
Y = X * 10000
PRINT X , Y
NEXT