{* Площадь поверхности цилиндра *}

Unit PAS68246;
Interface
Implementation
Begin
 writeln('Вычисление площади поверхности цилиндра');
End.

Program pas68246;

Uses pas68246.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  pi = 3.14;
Var {* Объявление переменных *}
  d     : real;
  h     : real;
  b     : real;
  top   : real;
  wall  : real;
  q     : real;
  q_int : integer;
Begin
  write('Диаметр: ');
  readln(d);
  write('Высота: ');
  readln(h);
  write('Окрашиваемая площадь одной банкой: ');
  readln(b);
  top := pi * sqr(d) / 4.0;
  wall := pi * d * h;
  q := (top + wall) / b;
  q_int := trunc(q) + 1;
  write('Количество банок: ', q_int);
  readln
End.