{* Объем цилиндра *}

Unit BEGIN_14;
Interface
Implementation
Begin
 writeln('Дан цилиндр, с заданным радиусом основания r и высотой h. Найти объем цилиндра. ');
End.

Program begin_14;

Uses begin_14.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  r : integer;
  h : integer;
  v : real;
Begin
  ClrScr; {* Очистка экрана *}
  Writeln('введите радиус r');
  readln(r);
  Writeln('введите высоту');
  readln(h);
  v := pi * sqr(r) * h;
  writeln(v : 4 : 2);
  readln; {* Ждем нажатия Enter *}
End.