Используя объектный тип, опишите геометрическую фигуру шар с методом вычисления объема.

//PascalABC.Net 3.0, сборка 1052type  Balls = class  r:real;  constructor (rr:real);  begin r:=rr end;  function VB:real;  begin    VB:=4*Pi*r*sqr(r)/3  end;  end;  var  b:Balls;  R:real;begin  Write('Радиус шара= '); Read(R);  b:=new Balls(R);  Writeln('Объем шара равен ',b.VB:0:3)end.Тестовое решение:Радиус шара= 25Объем шара равен 65449.847