Состваить программу вычисления площади конуса.в паскаль. s=(1/3)п*r^2*h

uses crt;
var r,h:integer;
begin
write('Введите радиус и высоту конуса: ');
read(r,h);
writeln('S = ',pi/3*sqr(r)*h:0:2);
end.