uses crt;
var i,sum,k: integer;
begin
sum: =0;
k: =0;
writeln('вводите числа. 0 - конец последовательности');
repeat
read(i);
if i mod 2=1 then begin
sum: =sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('среднее арифметическое нечетных чисел: ',sum/k: 5: 3);
end.
begin
readln(n);
for k:=1 to n do
begin
m:=k*k*k;
if m=n then
begin
writeln(k,'*',k,'*',k,'=',n);
exit;
end;
end;
if (m<>n) then
writeln('Het');
end.