Написать программу вычисления объема шара v с радиусом r по формуле v=(4/3)pr^3

Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.

Пример:
R = 3
V = 113.10

Язык python:

from math import pi as pi
R = int(input())
V = (4/3)*pi*R**3
print(round(V,3))

Пояснение:
round - округляет V до 3 знака после запятой, если это не нужно, то просто напишите print(V)

1. программа это описание на формальном языке понятном компьютеру последовательности действий которые необходимо выполнить над данными для решения поставленной задачи
2. системное программное обеспечение включает в себя операционную систему и сервисные программы
3.операционная система это комплекс программ обеспечивающих совместное функционирование всех устройств компьютера и предоставляющих пользователю доступ к ресурсам компьютера
4.аппаратный Интерфейс - это средства обеспечивающие взаимодействие между устройствами компьютера для обеспечения совместного функционирования аппаратного обеспечения компьютера составляющая операционные системы входят драйверы драйверы это устройство специальные программы управляющие работой подключенных к компьютеру устройств
5.пользовательский Интерфейс это средства обеспечивающие взаимодействие человека и компьютера
6.русский компьютера это последовательная загрузка программ операционной системы из долговременной памяти в оперативную память компьютера
7.сервисные программы это различные программы обслуживающие диски программы-архиваторы программы для борьбы с компьютерными вирусами коммуникационные программы и многие другие

Условие в вопросе и комментариях различается, поэтому приведу два варианта.
1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)

Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('элементы с четным номером:');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.

2) Программа выводит четные элементы массива

Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('четные элементы:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
end.