Даны 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-сред геометрич