d, V, Vl: real;

clrscr;
write('Zadaj priemer gule v metroch'); readln(d);
V:= 3/4 * 3.14 * (d * d *d) / 8;
Vl:= v * 1000;
writeln('Objem guloveho zasobnika na vodu je ' , V:5:2, 'metrov kubickych, co je ',Vl,' litrov.');
readln;