Menghitung Bangun Ruang Dengan Free Pascal

hay guys, belajar pemograman lagi nih.

contoh syntax menghitung beberapa bangun ruang dalam satu program freepacal.  coba yuk !

====================================================

program menghitung_volume_bangun_ruang;
uses crt;
var t,l,phi,p,s,r,al : real;
 a : char;
 volumekubus,volumebalok,volumelingkaran,volumeprisma : real;
volume:longint;
begin
clrscr;
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
writeln(' Multimedia 1');
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
writeln(' ');
writeln(' ');
writeln('===============================================');
writeln('pilih menu untuk menghitung bangun ruang');
writeln('===============================================');
writeln('1. Volume kubus : ');
writeln('2. volume balok : ');
writeln('3. volume Lingkaran : ');
writeln('4. volume Prisma : ');
writeln('5. Keluar ');
repeat
write('Input pilihan anda [1 | 2 | 3 | 4 | 5 ]: '); readln(a);
until
(a='1') or (a='2') or (a='3') or (a='4') or (a='5');
        writeln ('');
case  a of
'1' : begin
write ('masukan sisi ');
readln(s);
volumekubus := s*4;
writeln('volume kubus adalah ' ,volumekubus :1:2);
end;
'2' : begin
write ('masukan panjang ');
readln(p);
write ('masukan lebar ');
readln(l);
write ('masukan tinggi ');
readln (t);
volumebalok := p*l*t;
writeln ('volume balok adalah ' ,volumebalok :1:2);
end;
'3' : begin
write ('masukan phi ');
readln(phi);
write ('masukan jari-jari ');
readln(r);
phi := 3.14;
volumelingkaran := phi*r*r*r;
writeln ('volume lingkaran adalah ' ,volumelingkaran :1:2);
end;
'4' : begin
write ('masukan alas ');
readln(al);
write ('masukan tinggi ');
readln(t);
volumeprisma := 0.33*al*t;
writeln ('volume prisma adalah ' , volumeprisma :1:2);
end;
'5' : begin
end
else
writeln ('mohon maaf, nilai yang anda masukan belum terdaftar');
end;
readln;
end.

====================================================

dan ini hasil dari uji coba program