Вычислить среднее арифметическое и среднее геометрическое 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.