написать маленькую прогу на Delphi

[mast2xx]

Программа для нахождения среднего арифметического и среднего геометрического трех чисел.

[Serge_Bliznykov]

1) когда Вы уже научитесь читать правила форума и давать темам ПРАВИЛЬНЫЕ заголовки?!
2) а что, знаний Delphi вообще ноль?!
ибо проще этой программы только 'Hello, World!'
3) если числа вещественные и расположены в Edit'ах (Edit1, Edit2 и Edit3), то:

в uses дописать модуль ...,Math;
СреднееАрифметическое := 
   ( StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text) + StrToFloat(Edit3.Text))/3;
СреднееГеометрическое := 
   Power( StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text) * StrToFloat(Edit3.Text), 1/3);