Contooh program pascal menghitung volum balok

program balok;
uses wincrt;
var p,l,t,v:real;
begin
     writeln('                    =====================================');
     writeln('                    ======*Menghitung Volume balok*======');
     writeln('================================================================================');
     writeln;
     writeln;
     write('Masukkan panjang balok = '); readln(p);
     write('Masukkan lebar balok   = '); readln(l);
     write('Masukkan tinggi balok  = '); readln(t);
     writeln;
     v:=p*l*t;
     write('Maka volume balok      = ',v:6:2);
     writeln;
     writeln;
     writeln;
     write('================================================================================');
     writeln('                      ==*RICKYSEPRIYANTO_13010241*==');
     writeln('                      ==================================');
end.