Latihan 4: Program Menghitung Harga Karpet

Program HitungHargaKarpet;
uses wincrt;
const karpet=15000;
var
   p1,l1,p2,l2:byte;
   luas,harga:longint;
begin
clrscr;
   p1:=15;
   l1:=6;
   p2:=3;
   l2:=3;
   luas:=(p1*l1)+(p2*l2);
   harga:=karpet*luas;
   write('Biaya yang Harus Dikeluarkan Fakhri Adalah =Rp.',harga);
   readln;
   end.