Menghitung Luas Sisi Balok Menggunakan Pascal

program Luas_Sisi_Balok;
uses crt;

var
t,l:integer;
p,luas:real;

begin
clrscr;
        textcolor(lightred);
        writeln('======= ==================== ======');
        writeln('=======    Tugas Pascal  3   ======');
        writeln('=======    Luas Sisi Balok   ======');
        writeln('======= ==================== ======');
        textcolor(lightgreen);
        write('masukna nilai panjang  = ');
        readln(p);

        write('masukan nilai tinggi = ');
        readln(t);

        write('masukan nilai lebar = ');
        readln(l);
        luas:= (2*p*l+2*p*t+2*l*t);

        write(' luas sisi balok = ',luas:0:2);
        write(' luas sisi balok = ',round(luas));
        write(' luas sisi balok = ',trunc(luas));
        readln;
end.