Для нахождения среднего арифметического двух чисел в Delphi можно использовать следующий код:

program Average;
var
a, b: Integer;
arithmeticMean: Real;
begin
Write('Введите первое число: ');
Readln(a);
Write('Введите второе число: ');
Readln(b);
arithmeticMean := (a + b) / 2;
Writeln('Среднее арифметическое: ', arithmeticMean:0:2);
Readln;
end.

Для нахождения среднего геометрического двух чисел в Delphi можно использовать следующий код:

program Average;
var
a, b: Integer;
geometricMean: Real;
begin
Write('Введите первое число: ');
Readln(a);
Write('Введите второе число: ');
Readln(b);
geometricMean := Sqrt(a * b);
Writeln('Среднее геометрическое: ', geometricMean:0:2);
Readln;
end.