Написать подпрограмму, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра — Pascal(Паскаль)

Program _4_1; {Vichislaem obiem cilindra}
uses crt;
var
 r,h:word;

 function Obiem(radius,high:word):extended;
 begin
  Obiem:=2*Pi*radius*high;
 end;

begin
 clrscr;
 writeln('Vedite radius cilindra.');
 readln(r);
 writeln('Vvedite visotu cilindra ');
 readln(h);
 writeln('Obiem raven ',obiem(r,h):4:2);
 readln;
end.