### Exercise

#### Perimeter Area

### Objetive

#### Create a program to calculate the perimeter, area and diagonal of a rectangle from its width and height (perimeter = sum of the four sides, area = base x height, diagonal using the Pythagorean theorem). It must repeat until the user enters 0 for the width.

### Code

```
Imports System
Public Class exercise67
Public Shared Sub Main()
Dim width As Double
Dim height As Double
Dim perimeter, area, diagonal As Double
Do
Console.Write("Enter the desired width: ")
width = Convert.ToDouble(Console.ReadLine())
If width <> 0 Then
Console.Write("Enter the desired height: ")
height = Convert.ToDouble(Console.ReadLine())
perimeter = width * 2 + height * 2
Console.WriteLine("Perimeter: {0}", perimeter)
area = width * height
Console.WriteLine("Area: {0} ", area)
diagonal = Math.Sqrt((width * width) + (height * height))
Console.WriteLine("Diagonal: {0} ", diagonal)
End If
Loop While width <> 0
End Sub
End Class
```