program cilindr; {$APPTYPE CONSOLE} uses SysUtils; var v,a,b,h,d:real; begin a:=1;b:=1; while (a<>0)and(b<>0) do begin readln(a,b); if (a<>0)and(b<>0) then begin { if pi*a<=b-a then d:=a else } d:=a/pi; h:=b-d; writeln(h:2:2,' ',d:2:2); v:=h*pi*sqr(d/2); writeln(v:3:3); end; end; readln; { TODO -oUser -cConsole Main : Insert code here } end.