Вывести сообщение о том, в какой аквариум войдет больше воды, если его заполнить на ¾. форма первого – цилиндр с радиусом r и высотой h, второго – правильная шестигранная призма со стороной r/2 и высотой h. нужно,

Ну как-то так. 
program prog;
const n=2;
var rc,rp,hc,hp,vc,vp:real;
begin
writeln('Введите радиус и высоту цилиндра');
Readln(rc);
readln(hc);
writeln('Введите высоту призмы');
readln(hp);
vc:=(rc*rc)*3.14*hc;
rc:=rc/2;
vp:=(rc*rc)*1.5*sqrt(3)*hp;
if(vc>vp) then
writeln('аквариум формы цилиндра больше,воды уйдет больше');
if(vc<vp) then writeln('Аквариум формы шестигранной призмы больше,воды уйдет больше');
if(vc=vp) then writeln('Аквариумы равны,воды будет по ровну');
end.