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

' Цикл While
Dim GA as Double
GA = 0.5
Do While GA lt;= 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 с 2-мя переменными
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