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