БУДЬ ЛАСКА Знайти середнє геометричне число всіх цілих додатних чисел менших 10. ЯКЩО МОЖНА ТО СКРІН

в MSDOS можно и скрин? типо такой задачи

Program PR_1;    var N,i:integer; Factorial:longint;beginwriteln('Bведіть значення натурального числа n');write('n='); readln (n);Factorial:=1;for i:=1 to n doFactorial:=Factorial * i;writeln(N,'! = ',factorial)end.