2 0 1 0 0
3 0 1 0 0
4 0 1 0 0
5 0 1 0 0
6 0 1 1 1
var
a:array[1..10] of integer;
i,b:integer;
begin
randomize;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
b:=a[i]*a[10];
write(b);
end.
П0 -> П1 ИП0 x^2 пи * 3 / С/П ИП0 x^2 ИП1 x^2 + КвКор ИП0 пи * * ИП0 x^2 пи * + С/П
Ввод: R -> h С/П. Далее на экране объём, после С/П - площадь поверхности.