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);
readln
end.
20 div 8 = 2
=======================
Обьекты-Карандаш, ручка, мелок. Свойства-Круглый, Красный, Синий, Черный.
<span>Фраза "ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ" содержит 25 символов. Если на 1 символ отводить до 4-х сантиметров, то будет вполне достаточно одной биты метровой длины.</span>