Написать программу вычисления площади конуса, (на программе pascal) sбок = * r * √(r² + h²) буду за ответ!

program name;
var S,H,r:real;
begin
writeln('Введите числа для переменных r и H соответственно');
readln(r,H);
S:= pi*r*sqrt((sqr(r)+sqr(H)));
writeln('Sбок=', S);
end.