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

program p1;
var a,b,c,d:real;
begin
write('Введите первое число:');
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-сред геометрич