Program Menghitung Volume Balok

program Menghitung_Volume_Balok;
uses wincrt;
var p,l,t,V:Real;
a:string;
begin
a:='y';
if a='y' then
while a='y' do
begin
clrscr;
write('Masukkan Panjang Balok=');
readln(p);
write('Masukkan Lebar Balok=');
readln(l);
write('Masukkan Tinggi Balok=');
readln(t);
V:=p*l*t;
writeln('Volume Balok=' , V :2 :2);
writeln('mau coba lagi?');read(a);
end
end.