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