Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: число с является средним геометрическим чисел а и b.

В программу поступают два числа. Так как тип их в задаче прямо не указан, мы будем пользоваться вещественным типом, который позволяет вводить нецелые числа.

Следующим шагом является чтение чисел:

readln (a);

readln (b);

readln (c);

Когда все числа прочитаны и записаны в соответствующие переменные, нам нужно найти среднее.

Сначала мы перемножим числа а и b:

d : = a * b;

d : = power (d, 1/2);

Степень ½ мы используем потому, что нам нужно извлечь корень.

if (c = d) then

writeln ('True')

else

writeln ('False');

end.