Menghitung Luas dan Keliling Persegi Panjang Dengan Pascal

Program Menghitung_Luas_dan_Keliling_PersegiPanjang;

Uses crt;

Var

L,p,m,k:integer;

Begin

Writeln(‘Program Menghitung Luas Dan Keliling Persegi Panjang’);

Writeln(‘--------------------------------------------------‘);

Writeln(‘Created By AN /Afini’);

Writeln(‘---------------------------------‘);

Write(‘Masukkan Nilai panjang: ‘);readln(p);

Write(‘Masukkan Nilai Lebar: ‘);readln(m);

L:=p*m;

Writeln(‘Hasil Perhitungan Luas: ‘,l);

K:=2 * (p+m);

Writeln(‘Hasil Perhitungan Keliling: ‘,k);

Readln;

end.