var a,b,v:real; begin readln(a,b); v:=4/3*Pi*sqr(b/2)*(b/2); a:=sqr(a)*a; v:=a-v; writeln(v:7:4);
end.
№2
var s:string[6]; begin readln(s); if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))= (strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then writeln('Является') else writeln('Не является');
end.
№3
var a,b:integer; begin readln(a,b); if (a<90) and (b<90) and (180-a-b<90) then writeln('Остроугольный') else if (a=90) or (b=90) or (180-a-b=90) then writeln('Прямоугольный') else writeln('Тупоугольный'); end.
Var n,k,s:integer; begin write('n='); readln(n); s:=0; while n>0 do begin k:=n mod 10; if k mod 2 <> 0 then s:=s+k; n:=n div 10; end; writeln('s=',s); end.