Помогите решить через Паскаль...

Program snaga;
const
H=15; // высота
R=10; // диаметр основания
A=10; //ребро куба
var
VK,VC : real; // обьем куба и цилиндра
M : real; // обьем
Begin
Write('Введите обьем: '); readln(M);
VK:=3.14*R*R*H; // обьем куба пи на Р вкводрате и на аш
VC:=A*A*A; //обьем равен величине этой стороны, возведенной в третью степень
if VK меньше M Then Writeln(' не войдет в куб') else Writeln('войдет в куб');
if VC меньше M Then Writeln('войдет в цилинд')else Writeln('невойдет в цилиндр');
if VK+VC меньше M Then Writeln('войдет в куб и в цилиндр')else Writeln('нневойдет никуда!! ');
end.

формулы объема из книжки по математике )))))
далее м сравнить с результатом по формуле if > не войдет, else все в порядке
зы: думаю задача на алгоритм выбора 1 2 3 где 1 в 1 емкость 2 во вторуб а 3 в обе Ю как сравнить объемы написано выше а команда на выборку есть в любом мануале или можно ее посмотреть в исходнике любого калькулятора под паскалем написанного.

raznica:=obsh_obm-a*a*a;
if raznica<0 then writeln('поместиться в кубе') else begin
raznica:=raznica-(формула объма цилиндра, я её забыл просто) ;
if raznica<=0 then writeln('поместиться в кубе и цилиндре') else writeln('не поместиться'); end;

только переменные описать не забудь.. . все real.
a,h,r,obsh_obm - можно word
raznica - только real