Напишите программу паскаль,вычисляющую объем цилиндра.

Const  
   PI=3.141592653589793238462643383279;
var 
   r,h:double;
begin
  write('Радиус ');
  readln(r);
  write('Высота ');
  readln(h);
  writeln(PI*r*r*h);
 end.