Информатика даны два целых числа . найти их среднее арифмитическое и средние геометрическое
Program n1; var a,b: integer; begin readln(a,b); writeln('срзнач: ',(a+b)/2); write('сргеом: ',sqrt(a*b)); end.