contoh soal menghitung luas dan keliling persegi panjang

 Program Menghitung Luas dan Keliling Persegi Panjang

program luas_keliling;
uses crt;
var
  panjang, lebar  : integer;
  luas, keliling     : integer;

begin
  clrscr;
  writeln ('Program Menghitung Luas Keliling Persegi Panjang');
  write ('Panjang  =  ');readln (panjang);
  write ('Lebar    =  ');readln (lebar);

  luas        := panjang * lebar;
  keliling   := 2 * (panjang * lebar);
  writeln ('Luas        =  ', luas);
  writeln ('Keliling   =  ', keliling);
  readln;
end.