Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
var
a, b: real;
begin
writeln('Введите два числа');
readln(a, b); //Вводим числа а и b
writeln('Среднее арифметическое кубов этих чисел: ', ((a * a * a) + (b * b * b)) / 2 : 0 : 5); {Печатаем среднее арифметическое кубов этих чисел с округлением до 5 знаков после запятой}
writeln('Среднее геометрическое модулей этих чисел: ', sqrt(abs(a) * abs(b)) : 0 : 5); {Печатаем среднее геометрическое модулей этих чисел с округлением до 5 знаков после запятой}
end.