12. ALGORITMA DAN PROGRAM UNTUK MENGHITUNG LUAS YANG DI ARSIR PADA PERSEGI PANJANG.

Algoritmanya:
1. Tentukan panjang total persegi panjang(PL) dan lebar total(LL)
2. Menghitung luas total, LTotal= pL x lL
3. Menghitung luas tengah, LTengah= pT x lT
4. Didapat luas yang diarsir, LArsir= LTotal-LTengah

Programnya:
uses crt;
var pl,ll,pt,lt,luas_tgh,luas_ttl:integer;
begin;
clrscr;
write('masukan panjang total persegi panjang:');
readln(pl);
write('masukan lebar total persegi panjang:');
readln(ll);
write('masukan panjang tengah persegi panjang:');
readln(pt);
write('masukan lebar tengah persegi panjang:');
readln(lt);
luas_tgh:=pt*lt;
luas_ttl:=pl*ll;
writeln;
writeln('luas total:',luas_ttl);
writeln('luas tengah:',luas_tgh);
writeln('__________________-');
writeln('luas yang di arsir:',luas_ttl-luas_tgh);
readln;
end.