Luas Persegi Panjang

Var
panjang , lebar , tinggi , Luas , Volume : Integer;

begin

panjang   := StrToInt (Edit1.Text);
lebar     := StrToInt (Edit2.Text);
tinggi    := StrToInt (Edit3.Text);
Volume    := panjang*lebar*tinggi;
Luas      := (2*panjang*lebar)+(2*panjang*tinggi)+(2*lebar*tinggi);

jawaban1.caption:= InttoStr (volume);
jawaban2.caption:= InttoStr (luas);
end;
end.