program ideone;
begin
	(* your codeprogram HitungLuasPersegiPanjang;
uses crt;

var
  panjang, lebar, luas: real;

begin
  clrscr;
  writeln('## Program Pascal Menghitung Luas Persegi Panjang ##');
  writeln('--------------------------------------------------');
  
  write('Input panjang persegi panjang: ');
  readln(panjang);
  write('Input lebar persegi panjang: ');
  readln(lebar);
  
  // Rumus luas persegi panjang
  luas := panjang * lebar;
  
  writeln('Luas persegi panjang = ', luas:4:2);
  readln;
end.
 goes here *);
end.