Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: число с является средним геометрическим чисел а и b.
Var a.b.c,d: integer; begin Write('Введите число a'); readln(a); Write('Введите число b'); readln(b); Write('Введите среднее геометрическое чисел а и b'); read(c); d:=sqr(a*b); Write(c=d); end.