Program Mencari Luas Dan Keliling Persegi Panjang Pada Pascal

Kali ini saya mencoba program mencari luas dan keliling persegi panjang dengan menggunakan Turbo dan hasilnya ada 2 angka di belakang koma karena saya beranggapan soal tidak selalu bilangan bulat.
Pascal Semoga bermanfaat untuk saya dan rekan-rekan sekalian.

USES CRT;
VAR
PANJANG,LEBAR,LUAS,KELILING:REAL;
BEGIN
CLRSCR;
WRITELN('=================================================');
WRITELN('PROGRAM MENCARI LUAS DAN KELILING PERSEGI PANJANG');
WRITELN('=================================================');
WRITELN('                                                                                                              ');
WRITE('MASUKKAN PANJANG  =');READLN(PANJANG);
WRITE('MASUKKAN LEBAR    =');READLN(LEBAR);
LUAS:=PANJANG*LEBAR;
KELILING:= (2*PANJANG) + (2*LEBAR);
WRITELN('LUAS PERSEGI PANJANG =',LUAS:8:2);
WRITELN('KELILING PERSEGI PANJANG =',KELILING:8:2);
READKEY;
END.