<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
begin
var r:=ReadReal('R =');
Writeln('Vшара = ',4/3*Pi*r*r*r:0:4)
end.
<u>Пример</u>
R = 12.6
Vшара = 8379.1554
1)....................................................................
===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.