menghitung keliling dan luas persegi panjang bagian 1

#include <Constants.au3>

$applName = "Menghitung luas dan keliling bangun persegi-panjang"
$panjang = InputBox($applName, "Masukan panjang (cm)",6)
$lebar = InputBox($applName, "Masukan lebar (cm)",5)
$luas = $panjang * $lebar
$keliling = 2 * ($panjang+$lebar)

$textPanjang = "Panjang " & $panjang & " cm. " & CHR(13)
$textLebar = "Lebar " & $lebar & " cm." & chr(13) & chr(13)

$textKeliling = "Maka, keliingnya adalah " & $keliling & " cm." & Chr(13)
$textLuas = "Dan luasnya adalah " & $luas & " cm2."

$textHasil = $textPanjang & $textLebar & $textKeliling & $textLuas

MsgBox($MB_SYSTEMMODAL, $applName, $textHasil)