Задача по информатикеданы два действительных положительных числа . найти среднее арифметическое и среднее геометрическое этих чисел.паскаль

Program mat;
var a,b: integer;
c,d:real;
begin
readln(a,b);
c:=(a+b)/2;
d:=(a*b)/2;
writeln(среднее арифметическое = ,c, среднее геометрическое = , d);
end.
________________
a и b - это те числа которые нужно ввести(два действительные натуральные положительные)
с - среднее арифметическое.
d- среднее геометрическое.