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

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