Написать программу на языке basic вычисления площади квадрата и периметра прямоугольника на выбор пользователя

MS DOS QBasic 1.0

Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
   INPUT "Длина стороны: "; a
   Print "Площадь квадрата " + Str$(a ^ 2)
Else
   INPUT "Длина стороны прямоугольника: "; a
   INPUT "Ширина стороны прямоугольника: "; b
   Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If