Даны 2 числа найти среднее арифметическое и среднее геометрическое их модули

   Program avgGm; Uses crt; var a,b,res:integer   begin      clrscr;       writeln('Введите А и B ' );         readln(a,b);            res:=(sqrt(a*b));          writeln('Модуль числа а: ', abs(a));           writeln('Модуль числа b: ', abs(b));           writeln('Среднее арифметическое: ', ((a+b)  div 2));        writeln('Среднее геометрическое: ', res);           readkey;   end.   .