Даны 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.

.