Pascal : Contoh Program menghitung persegi panjang

Program Luas_Persegi_Panjang;

uses wincrt;

var
panjang, lebar, luas : real;

begin
write ('Masukkan panjang? '); readln (panjang);
write ('Masukkan lebar? ')  ; readln (lebar);
luas := panjang*lebar;
writeln;
writeln ('Luas segiempat = ', luas:5:2, ' satuan luas');

end.

Tags : Luas, Persegi panjang, luas persegi panjang, pascal, program pascal