#Program_Komputer | Program Menghitung Luas persegi panjang

Program Menghitung_luas_persegi_panjang ;
USES DOS, CRT;
Var
   Ch:char ;
   luas,panjang,lebar:real ;
Begin
     clrscr;
     writeln('Program ini dibuat oleh Wiwit Safitri');
     Writeln('Luas persegi panjang');
     Write('Tuliskan panjangnya = ');
     Readln(panjang);
     Write('Tuliskan lebarnya = ');
     Readln(lebar) ;
     luas:= panjang*lebar;
     Writeln('luas persegi panjang tersebut adalah = ',luas:5:2,'cm2') ;
     Ch:=readkey;
End.