Вывести сообщение о том, в какой аквариум войдет больше воды, если его заполнить на ¾. Форма первого – цилиндр с радиусом 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(vcif(vc=vp) then writeln(Аквариумы равны,воды будет по ровну);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.