program kihid;
uses crt;
const n=3.14;
var sl,rl,i,kiht:integer;
  r,c:real;
begin
 clrscr;
 writeln('Sisesta paberirulli sisemise augu labimoot');
 readln(sl);
 writeln('Sisesta rulli labimoot');
 readln(rl);
 kiht:=(rl-sl)*5;
 writeln('Paberi kihtide arv on ',kiht);
 r:=sl/2;
 c:=2*n*r;
 for i:=1 to kiht do begin
   r:=r+0.1;
   c:=c+2*n*r;
   end;
 writeln('Paberit on ',c:5:2,' sentimeetrit');
 readln;
 end.