Вычислить среднее арифметическое и среднее геометрическое 4 и 6

Program fofgogjoj;
var
a,b:integer;
sa,sg:real;
begin
a:=4;
b:=6;
sa:=(a+b)/2;
sg:=exp(ln(a*b)/2);
Writeln(Среднее арифметическое=,sa:0:3);
Writeln(Среднее геометрическое=,sg:0:3);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.