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

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