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

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