Program pascal

Buatlah Program utama yang didalam program tersebut terdapat prosedur dan fungsi.
Penyelesaian:
PROGRAM MENGHITUNG BALOK
( Menampilkan pengiriman pesan perhitungan keliling, luas permukaan dan volume balok dengan menginput panjang, lebar dan tinggi dari balok dan menampilkan keluaran pesan dan balasan perhitungan balok )

DEKLARASI
(nama peubah)
nama : string
panjang,lebar,tinggi : integer

ALGORITMA
procedure pembuka
begin
write( )
write(‘===================================================’)
write(‘ Nama Pengirim Pesan : ‘) read(nama)
write( )
write(‘===================================================’)
write(‘Assalamualaikum Safitri’)
write(‘Saya membutuhkan bantuan menghitung ukuran bak mandi saya yang berbentuk balok’)
write(‘Apakah kamu bisa membantu?’)
write(‘Saya harap kamu bisa membantu’)
read( )
end
procedure masukan
begin
write( )
write(‘Berikut merupakan ukuran bak mandi saya:’)
write(‘Panjang bak mandi saya (m): ’)
read(panjang)
write(‘Lebar bak mandi saya (m): ’)
read( lebar)
write(‘Tinggi bak mandi saya (m): ’)
read( tinggi)
end
function  keliling (panjang,lebar,tinggi : integer) : integer
begin
keliling ← 4*(panjang + lebar + tinggi)
end
function  luas (panjang,lebar,tinggi : integer) : integer
begin
luas ← 2*(panjang*lebar + panjang*tinggi + lebar*tinggi)
end
function  volume (panjang,lebar,tinggi : integer) : integer
begin
volume ← panjang*lebar*tinggi
end
begin
textbackground(white)
clrscr
textcolor(red)
pembuka
write( )
write(‘ Waalaikumsalam ‘,nama, ‘‘)
write(‘ Saya bisa membantu perhitungan bak mandi kamu’)
write(‘ Untuk memudahkan saya, beritahu berapa ukuran bak mandi kamu!’)
read( )
masukan
write( )
write(‘ Menurut saya setelah diperhitungkan:‘‘)
write(‘ Keliling bak mandi kamu adalah ‘,keliling(panjang,lebar,tinggi),’ meter’)
write(‘ Luas permukaan bak mandi kamu adalah ’,luas(panjang,lebar,tinggi),’ meter bujur sangkar’)
write(‘ Volume bak mandi kamu adalah ’,volume(panjang,lebar,tinggi),’ meter kubik’)
write(‘ Apakah ini memudahkan ‘,nama,’?’)
read( )
write( )
write(‘Terima kasih atas bantuanmu, ini sangat memudahkanku.’)
read( )
end.

INPUT



OUTPUT