Program Volume Balok dalam Pascal

Apa kabar kawan? Sudah beberapa hari ini tidak posting di blog nih hehe
Sebelumnya saya sudah pernah membahas tentang Pemrograman dalam Turbo Prolog serta dalam Bahasa C. Nah kini saya akan membahas tentang Pemrograman Bahasa Pascal. Untuk permulaan, check it out!

program balok;
uses crt;

var
        panjang:integer;
        lebar:integer;
        tinggi:integer;
        volume:integer;
begin
        writeln('PROGRAM MENGHITUNG VOLUME BALOK');
        write('Panjang Balok : '); readln(panjang);
        write('Lebar Balok : '); readln(lebar);
        write('Tinggi Balok : '); readln(tinggi);

        volume:=panjang*lebar*tinggi;
        writeln('Volume Balok : ',volume);
end.

Segitu aja dulu kawan blogger, semoga bermanfaat.