Сложные циклы и разветвления.

[R.Blackwood]

Радиус R и высота H конуса могут изменяться в пределах : от 0,1 до 0,2
с шагом 0,1 и от 1,5 до 2,5 с шагом 0,5 соответственно.
Получить таблицу изменения объема V и его полной поверхности S.

Помогите плиз составить блок схему и программу к ней.

[Krasavuchik]

Program cont2;
Var v,s,r,h:real;
begin
r:=0.1;
h:=1.5;
repeat
repeat
v:=(1/3)*3.14*sqr(r)*h;
 s:=3.14*r*(5+r);
 writeln('v=',v:5:5,'   s=',s:5:5);
 r:=r+0.05;
 h:=h+0.5;
until r>0.2;
until h>2.5;
end.

[BDA]

Krasavuchik, для оформления кода используйте кнопку CODE. Я бы предположил, что нужно перебрать все варианты R и H, а не одновременно их увеличивать. Что за пятерка вместо длины образующей?
P.S. Что за дичайший некропост

[MansMI]

Сообщение от Krasavuchik

r:=0.1;

надо в первый repeat занести