Перевод на Паскаль. Определить боковую поверхность правильной пирамиды с высотой h и стороной основания "а"

var a,h,s:real; n:integer;
begin
write('n a h ? '); readln(n,a,h);
s:=n*a/2*sqrt(h*h+sqr(a/2/sin(pi/n)*cos(pi/n)));
writeln(s:0:5); readln
end.