Ajutor!Probleme in Pascal :)

Rog cine cunoaste limbajul Pascal sa ma ajute la rezolvare a 2 probleme...1) elaborati o o functie PASCAL care returneaza produsul sirului1/3*1/9*1/152)Se considera declaratiile:type vector=array[1..100] of integer;elaborati un program care modificaelementele tabloului in felul urmator: elementele egale cu zero se inlocuiesc cu media aritmetica a elementelor pozitive din tablou:In procedura citire-citirea tablouluiIn procedura media-calculul mediei aritmetice a elementelor pozitive din tablouIn procedura modificare-modificarea elementelorIn procedura nou-afisarea tabloului nouMULTUMIM anticipat!