Циклическая структура Delphi

[Vladghan]

Помогите пожалуйста решить задачу в Delphi:
Сопоставить значения объемов сферы и конуса при одинаковом значении радиуса R и различных значениях высоты конуса H, изменяющегося в интервале от 10 до 200 % величины R с шагом 10 % R.
Объем сферы V_сф=4/3 πR^3; объем конуса V_к= 1/3 πR^2 H. Величина R вводится с клавиатуры. Ответ необходимо представить в виде:
V_сф=...м^3; V_к=...м^3;
«Объем сферы больше (меньше) объема конуса».

[Mad_Cat]

h=0.1R;
while h<=2R do begin
Vs:=4/3*pi*r*r*r;
Vk:=1/3*pi*r*r*h;
writeln('vs=',vs:6:3);
writeln('vk=',vk:6:3);
if vs>vk then writeln('vs>vk)
else writeln('vs<=vk');
h:=h+0.1R;
end;