Составить программу вычисления площади поверхности конуса

1.Боковая площадь пов-ти конуса var r, l: integer; begin readln(r, l); writeln(pi * r * l); end.   2. Полная площадь пов-ти конуса var r, l: integer; begin readln(r, l); writeln(pi * r * (r+l)); end.   Примечание: r- радиус, l - образующая Если l неизвестна,ее можно вычислить по формуле l = sqrt(r*r+h*h), где h - высота конуса