contoh program pascal munghitung luas persegi panjang

program persegi_panjang;
uses wincrt;
var     P, L, Luas: integer;
begin
clrscr;
writeln(' persegi panjang');
writeln('================');
write('input nilai panjang:');readln(P);
write('input nilai lebar:');readln(L);
Luas:=P*L;
writeln('luas persegi panjang : ',luas,' ');readln(luas);
readkey;
end.