Contoh pascal menghtung luas persegi panjang

program persegi_panjang;
uses wincrt;
var p,l,luas:real;
begin
     writeln('                    =====================================');
     writeln('                    ==*Menghitung Luas Persegi Panjang*==');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan panjang persegi panjang = '); readln(p);
     write('Masukkan lebar persegi panjang   = '); readln(l);
     writeln;
     luas:=p*l;
     write('Maka luas persegi panjang        = ,luas:5:2);
     writeln;
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.