Luas dan Keliling Persegi Panjang

Menghitung luas dan keliling persegi panjang dengan menggunakan bahasa pemrograman pascal dengan inputan panjang dan lebar.

program luas dan keliling persegi panjang;
uses wincrt;
var P,L,luas,keliling:integer;
begin
writeln('program menghitung luas dan keliling persegi panjang');
write('panjang ='); readln(P);
write('lebar ='); readln(L);
luas:=P*L;
writeln('jadi luas persegi panjang tersebut adalah ',luas);
keliling:=(2*P)+(2*L);
writeln('jadi keliling persegi panjang tersebut adalah ',keliling);
end.