1)Найдите ошибки в программах: a) Program Ошибки1; Begin Summa:=6+8; End; b) Program Ошибки2; Begin Var X:integer; X:=6+8; Write(X); End; 2)Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел. ДАННУЮ ПРОГРАММУ НУЖНО НАПИСАТЬ В ПАСКАЛЕ.

Предыдущий
вопрос Следующий
вопрос

Программа с ошибкой 1:

Program Ошибки1;
Var
Summa: integer;
Begin
Summa := 6 + 8;
End.

Программа с ошибкой 2:

Program Ошибки2;
Var
X: integer;
Begin
X := 6 + 8;
Write(X);
End.

Программа вычисления среднего арифметического кубов и среднего геометрического модулей:

Program AverageCalculation;
Var
num1, num2: integer;
cubeAvg, moduleAvg: real;
Begin
Write('Введите первое число: ');
Readln(num1);
Write('Введите второе число: ');
Readln(num2);

cubeAvg := (Power(num1, 3) + Power(num2, 3)) / 2;
moduleAvg := Sqrt(Abs(num1) * Abs(num2));

WriteLn('Среднее арифметическое кубов чисел: ', cubeAvg:0:2);
WriteLn('Среднее геометрическое модулей чисел: ', moduleAvg:0:2);
End.