Очень нужно решение и блоксхема.

[simplex]

Ввести размеры прямоугольного куска жести А,В. Определить, возможно ли из этого куска вырезать два кольца с радиусом R.
Очень нужно решение и блоксхема. пожалуйста.

[Rusl92]

var a,b,r:real;
begin
   readln(a,b,r);
   if (2*r<=a) and (2*r<=b)
    then
     writeln('Moshno')
    else
     writeln('Nelzya');
   readln
end.

[puporev]

Тода уж так:

var a,b,r:real;
begin
   readln(a,b,r);
   if ((2*r<=a) and (4*r<=b)) or ((2*r<=b) and (4*r<=a)) 
    then
     writeln('Moshno')
    else
     writeln('Nelzya');
   readln
end.