{* Задача 570 *}

Unit ZADACH570;
Interface
Implementation
Begin
 writeln('Сырье для изготовления искусственных нитей поступает в бочках радиуса R и высотой H. Определить объем N бочек.');
End.

Program zadach570;

Uses zadach570.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  v : real;
  r : real;
  h : real;
  n : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите радиус в м. R=');
  read(r);
  write('Введите высоту в м. H=');
  read(h);
  write('Введите количесиво бочек. N= ');
  read(n);
  v := pi * r*r * h*n;
  Writeln('Объем ', n, ' бочек: ', v : 2:2, ' куб.м.');
  readkey; {* Ждем нажатия любой клавиши *}
End.