program pascal luas persegi panjang

  Buat algoritma dan program untuk menghitung luas yang diarsir pada gambar dibawah ini

1. Menentukan nilai panjang sisi luar (pL): pL= 18, lebar sisi luar (lL): lL= 12, panjang sisi dalam (pT): pT= 10, dan lebar sisi dalam (lT): lT= 5.
2. Menghitung luas total, Ltotal= pL x lL
3. Menghitung luas tengah, Ltengah= pT x lT
4. Didapat luas yang diarsir, Larsir= Ltotal-Ltengah

      Program pascal:

uses crt;

var pL, lL, pT, lT, Ltotal , Ltengah: integer;

begin

    clrscr;

    pL:=18;  lL:=12;  pT:=10;  lT:=5;

    Ltotal:= pL*lL;

    Ltengah:= pT*lT;

    writeln('Luas total       = ', Ltotal);

    writeln('Luas tengah      = ', Ltengah);

    writeln('Luas yang diarsir= ', Ltotal-Ltengah);

    readln;

end.