var
  s, r, h :real;

begin

  write('Ââåäèòå ðàäèóñ: ');
  readln(r);
  write('Ââåäèòå âûñîòó: ');
  readln(h);
  
  s:= 2 * Pi * r * h + 2 * Pi * sqr(r);
  
  writeln('Ïëîùàäü ïîâåðõíîñòè öèëèíäðà ðàâíà ',s);

end.