turbo pascal экзамен

Question

вводится положительные числа до тех пор пока очередное число не окажется больше 15 . посчитать среднее геометрическое этих чисел

Екатерина Смирнова · Accepted Answer

И никто не помог? 
Да просто у товарищ бы спросил 
 
program p1; 
var 
 k,sg: real; 
 n : Integer; 
 
begin 
 sg := 1; 
 n := 0; 
 read(k); {вводятся} 
 
 while k <= 15 do {пока не больше 15} 
 begin 
 n := n + 1; 
 sg := sg*k; 
 read(k); 
 end; 
 
 {вывод если введены были, а иначе 0} 
 if n > 0 then WriteLn('sg=', exp(ln(sg)/n)) 
 else WriteLn('sg=0'); 
 
end.