1. Напишите программу, вычисляющую площадь прямоугольника по заданным сторонам.

Sub aaa()    a = CDbl(InputBox("Длина стороны"))    b = CDbl(InputBox("Ширина стороны"))    MsgBox "Площадь прямоугольника " + CStr(a * b)End Sub