Привет, помогите пожалуйста, как решить три задачи(ниже) в паскаль?
1)Определить командное время в эстафете, если известно время пробега каждого участника.
2) В саду 15 деревьев, известна высота каждого дерева. Определить среднюю высоту деревьев в саду.
3) Определить количество человек, прошедших отбор в баскетбольную секцию. Принимаются те, у кого рост выше 160 см.

1.program nom1;const n=8;var a:array[1..n] of integer; i,t:integer;beginfor i:=1 to n doread(a[i]);t:=0;for i:=1 to n dot:=t+a[i];write('Командное время = ',t);end.2.program n2;const N=15;var a:array[1..N] of integer;i:integer;v:real;beginfor i:=1 to N do a[i]:=random(30);v:=0;for i:=1 to N dov:=v+a[i];v:=v/N;writeln('Сред высота =',v);end. 3.program n3;const N=12;var a:array[1..N] of integer;i,c:integer;beginfor i:=1 to N do a[i]:=random(120)+100;c:=0;for i:=1 to N doif a[i]>160 then c:=c+1;writeln('Kол-во прошедших = ',c);end.