Помогите составить программы!!!

[Викулька]

1.Написать программу вычисления объема параллелепипеда, если исходными данными будут длина, ширина и высота параллелепипеда.

2. Написать программу, вычисляющую сумму и среднее арифметическое положительных чисел, которые вводятся с клавиатуры. Для завершения ввода чисел ввести ноль.

3. Написать программу, вычисляющую сумму
1/1*2 +1/2*3 +1/3*4+1/4*5+…. с точностью Е=10-³

[Stilet]

1. обьем этого пипеда твоего = площади основания*высоту, неполенись сама написать
2. показывай что не получается
3.ну дык в цикле

и еще:
Запомни на будущее: помоши просить нужно не с бухты барахты, нужно иметь наработки и не лениться немножко подумать. Следующие такие темы от тебя будут удаляться

[kommunist]

1) задача

program paralepiped;
var a,b,c,v:real;
begin
 writeln('vvedite a:');
 readln(a);
 writeln('vvedite b:');
 readln(b);
 writeln('vvedite c:');
 readln(c);
 v:=a*b*c;
writeln('v=',v);
readln;
end.

[Abbatik]

2)

s:=0;
n:=0;
repeat
write('введите число 0-выход');
readln(x);
s:=s+x;
n:=n+1;
until x=0;
writeln('sr. arifm-e=',s/(n-1));
...