Один бит информации уменьшает неопределенность в два раза.
3*log(pow(pow(sin(x),2)+2),1/5)
3) - 1
4) - 3
5) - 2
Все просто.......
var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;