написать программу на языке basic вычисления площади квадрата и периметра прямоугольника НА ВЫБОР ПОЛЬЗОВАТЕЛЯ

Ну, Вы же знаете мою неспособность четко сформулировать вопрос )))

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