Program menghitung Persegi Panjang

Oke, kali ini gua posting Program Menghitung  Persegi Panjang, tetep belajar sob, jangan copy-paste mulu. hahaa :p

§  Program PersegiPanjang;

Uses wincrt;
Var
P,l:byte;
ls,kel,:integer;

begin 

writeln(‘Program Untuk menghitung Persegi Panjang’)
write(‘Masukkan Panjang: ‘);readln(p);

write(Masukkan Lebar: ‘);readln(l);

writeln;

ls:=p*l;

kel:=(2*p)+(2*l);

writeln(‘Luas: ‘,ls);

writeln(‘Keliling: ‘,kel);

readln;

end.