Kode Rumus Luas Persegi Panjang pada Pascal

Berikut kode rumus luas Persegi Panjang pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":

Kode Berikut untuk Copy Paste :

uses crt;
var p,l1,L:Real;
begin
clrscr;
write('Masukkan Panjang Persegi Panjang(cm):');Readln(p);
write('Masukkan Lebar Persegi Panjang(cm):');Readln(l1);
L:=p*l1;
writeln;
writeln('Luas Lingkaran=',L:10:2,'cm2');
readln;
end.

Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat