Вывести сообщение о том, в какой аквариум войдет больше воды, если его заполнить ** ¾....

Question

Вывести сообщение о том, в какой аквариум войдет больше воды, если его заполнить на ¾. Форма первого – цилиндр с радиусом R и высотой H, второго – правильная шестигранная призма со стороной R/2 и высотой H.
ОЧЕНЬ СРОЧНО НУЖНО,ПОМОГИТЕ ПОЖАЛУЙСТА....

Answer 1

Ну как-то так. 
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(vcif(vc=vp) then writeln('Аквариумы равны,воды будет по ровну');
end.