URGENTE dev-pascal!

[hundmail]

non riesco a far funzionare questo blocco di codice

program VolCon;
const
pg=3.14;
var
d:real;
r:real;
h:real;
v:real;
begin

writeln('introduci d e h');
readln('d h');
r:= d/2;
writeln('r e');
readln;
v:= 1/3*pg*r*r*h;
writeln('v e');
readln;
end.

in pratica devo trovare il volume del cono sapendo l altezza e il diametro