Beberapa program pascal

Program Menghitung Volume Balok


program volume_balok;
uses wincrt;
var p,l,t,v:integer;
begin
writeln ('latihan membuat program');
writeln;
writeln ('menghitung volume balok');
writeln;
writeln ('masukkan panjang');readln (p);
writeln;
writeln ('masukkan lebar');readln (l);
writeln;
writeln ('masukkan tinggi');readln (t);
writeln;
v:= p*l*t;
write ('volume balok tersebut adalah ',v);
writeln;
writeln ('terima kasih.');

end.