PROGRAM MENGHITUNG LUAS PERSEGI PANJANG MENGUNAKAN TURBO PASCAL

PROGRAM MENGHITUNG LUAS PERSEGI PANJANG MENGUNAKAN TURBO PASCAL
 Cara  menghitung luas persegi panjang menggunakan turbo pascal untuk pengguna yang masih dasar.

Uses crt;
Var
     Panjang, Lebar, Luas : integer;
Begin
      Clrscr;
      writeln ('Program Menghitung Persegi Panjang');
      writeln (' -------------------------------------');
      write (' Input Nilai Panjang : ') ; readln (panjang);
      write (' Input Nilai Lebar : ') ; readln (lebar);

      Luas := Panjang * Leabar ;
      writeln ('--------------------------------------');
      write (' Nilai Luas Adalah : ', luas);
      readln;
end.