ПОМОГИТЕ СРОЧНО!!!! Написать программу нахождения среднего арифметического и среднего геометрического двух чисел

program Sred;uses  crt;var  a, b, c, srg: Real;begin  clrscr;  write('Vvedite 1-e i 2-e chislo= ');readln(a, b); c := (a * a * a + b * b * b) / 2;  srg := Sqrt(Abs(a) * abs(b));  writeln('SredAref=', c:8:3, ' SredGeometr= ', srg:8:3);  readln;end.