Найди обьем шара, если длина радиуса вводится с клавиатуры ​

pi = 3.14

r = float(input('Введите радиус шара: '))

v = 4/3 * pi * (r**3)

print(v)

WORD - мощный текстовый редактор , позволяющий быстро создать документ любой сложности из разрозненных заметок и довести до совершенства
информационный бюллетень или брошюру . 
 Это уже общепризнанно - редактор Word фирмы Microsoft является сегодня самой популярной в мире программой. Word начинен “ быстрыми “ командами
и самыми современными средствами, такими как встроенная программа проверки правописания и словарь синонимов, которые вам грамотно составлять документы, и готовыми шаблонами, позволяющими вам сводить воедино заметки,
письма, счета и брошюры без больших усилий.

program raf105;

const

 n = 4;

var

 a,b: array[1..n,1..n] of integer;

 Vkol1,Vkol2,Vsum1,Vsum2: array[1..n] of integer;

 i,j,sum1,sum2,kol1,kol2: integer;

 x1,x2: boolean;

begin

 for i:=1 to n do

 begin

   x1:= False;

   x2:= False;

   kol1:= 0;

   kol2:= 0;

   sum1:= 0;

   sum2:= 0;

   for j:=1 to n do

   begin

     a[i,j]:= random(-9,9);

     b[i,j]:= random(-9,9);  

     if a[i,j] < 0

       then x1:= True;

     if b[i,j] < 0

       then x2:= True;

     if not(x1)

       then begin

         sum1:= sum1 + a[i,j];

         kol1:= kol1 + 1;

       end;

     if not(x2)

       then begin

         sum2:= sum2 + b[i,j];

         kol2:= kol2 + 1;

       end;

   end;

   Vkol1[i]:= kol1;

   Vkol2[i]:= kol2;

   Vsum1[i]:= sum1;

   Vsum2[i]:= sum2;

 end;

 writeln('Массив A');

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

     write(a[i,j]:3);

 end;

 writeln;

 writeln;

 writeln('Массив B');

 for i:=1 to n do

   begin

   writeln;

   for j:=1 to n do

     write(b[i,j]:3);

 end;

 writeln;

 writeln;

 write('Вектор "Количество по строкам A": ');

 for i:=1 to n do

   write(Vkol1[i],' ');

 writeln;

   write('Вектор "Количество по строкам B": ');

 for i:=1 to n do

   write(Vkol2[i],' ');

 writeln;

 write('Вектор "Сумма по строкам A": ');

 for i:=1 to n do

   write(Vsum1[i],' ');

 writeln;

 write('Вектор "Сумма по строкам B": ');

 for i:=1 to n do

   write(Vsum2[i],' ');

end.

PascalABC 3.4.2