П0 -> П1 ИП0 x^2 пи * 3 / С/П ИП0 x^2 ИП1 x^2 + КвКор ИП0 пи * * ИП0 x^2 пи * + С/П
Ввод: R -> h С/П. Далее на экране объём, после С/П - площадь поверхности.
Обязательный атрибут почтового адреса,по-английски называющийся "at":@?
function summa(var x: mas; su: real): real;
var
i: integer;
begin
su := 0;
for i := 1 to n do
su := su + x[i];
summa:=su;
writeln('sum=', su);
end;
3кБ=3072б (3*1024)
ответ 3072 байта делим на количество символов12288
равно 0.25 байт
Сумма = 594
а произведение невозможно вычислить