1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3

2)даны действительные числа x и y. необходимо определить принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1).

3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.

cрочно надо на языке паскаль составить плиз)

Program Shar;Var    r, v: Real;Begin        Write('r = ');    ReadLn(r);        v := 4 / 3 * 3.14 * r * r * r;        WriteLn('v = ', v);            ReadLn;End.

1) program ht1; 

var v,p,r:real;

begin

p:=3.14;

writeln ('vvedite r');

readln (r);

v:=4/3*p*(r*r*r);

writeln(v);

end.

2) program ht2;

var x,y,r:integer;begin

writeln('vvedite r);

readln(r);writeln('vvedite x');readln (x);writeln ('vvedite y');readln (y);

if (x<=r) and (y<=r) then writeln ('prinadlezhit')else writeln ('ne prinadlezhit');end.

3) а в третью я врубиться не могу.