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

ну как-то так. program prog;const n=2;var rc,rp,hc,hp,vc,vp:real;beginwriteln('Введите радиус и высоту цилиндра');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.