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

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- среднее геометрическое.