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

Question

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

Answer 1

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