Delphi

[Omge]

задача: даны два числа. найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
Помогите написать программу.

[phomm]

Поможем, только для таких "сложных" задач не хочется решение готовое выкладывать бесплатно, пусть хоть люди запоминают, что либо они сами должны разбираться и решать встающие у них на пути проблемы, либо платить тому, кто разбирается

[Jaguar83]

var
  n1,n2: Integer;
  ar,geo: Real;
begin
  Write('Enter number#1 - ');
  Readln(n1);
  Write('Enter number#2 - ');
  Readln(n2);
  ar := (sqr(n1)+sqr(n2))/2;
  geo:= sqrt(abs(n1)*abs(n2));
  Writeln('Srednee arifmeticheskoe ',ar:5:2);
  Writeln('Srednee geometricheskoe ',geo:5:2);
  Readln;
end.