Надо как-то написать программу

[faqbi4vosk]

1.Составить программу вычисления объема конуса по заданному диаметру и образующей.
2.Вычислить площадь кольца, ширина которого равна а, а отношение радиусов окружностей равно b.


пример:

Написать программу для вычисления длины окружности и площади круга заданного радиуса.
>Решение.
1. Математическая модель

Аргументы: радиус окружности r, вещественного типа.
Результаты: длина окружности l и площадь круга s, вещественного типа.

program primer1_2; 
uses crt; 
var r, l, s: real; 
begin 
clrscr; 
write (‘Введите радиус: '); 
read (r); 
l := 2*pi*r; 
s :=pi*sqr(r); 
writeln (‘Длина окружности -‘, l:6:1); 
writeln (‘Площадь круга - ‘, s:6:1); 
readkey; 
end

[BDA]

Во-первых, кросспостинг запрещен на этом форуме.
Во-вторых, что именно не получается? Это задача, которую дают на первом уроке по программированию
Просто найдите формулы для нахождения объема конуса через те данные, что у вас будут считываться и запишите, как в примере.
Напишите что-нибудь, и если не будет работать, то пишите сюда.