составить программу нахождения площади поверхности прямого кругового усеченного конуса с радиусом оснований R1, R2 и высотой h. написать в словесном виде и на языке паскаля

Спасибо!

Пожалуйста)

var k, h, v, s : real;begin write('введите высоту h: '); readln(h); write('введите радиус основания: '); readln(k); v := 1 / 3 * h * pi * sqr(k); s := pi * k * (k + sqrt(sqr(h) + sqr(k))); writeln('площадь полной поверхности: ', s:6:2); writeln('объем: ', v:6:2); readlnend.