Pascal : Program Mencari Luas Persegi Panjang

Program Luas1;
Uses Crt;
Var
   p:real;
   l:real;
   k:real;

Begin

     ClrScr;
     write('Menghitung Luas Persegipenjang');
     readln;
     write('Masukan Panjang:');readln(p);
     write('Masukan Lebar:');readln(l);
          k:=p*l;
     write('Luas Persegipanjang Adalah:',k:0:0);
     readln;
End.