даны 2 целых числа найти : А) Их средняя арифмитическая . Б) их средняя геометрическая

program p1;var a,b,c,d:real;beginwrite('Введите первое число:');readln(a);write('Введите второе число:');readln(b);c:=(a+b)/2;writeln('Среднее арифмитическое:',c);d:=1;d:=d*a;d:=d*b;d:=sqrt(d);writeln('Среднее геометрическое:',d);end.

вот держи,....................................sr-среднее арифметg-сред геометрич