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

Var a.b.c,d: integer;beginWrite('Введите число a'); readln(a);Write('Введите число b'); readln(b);Write('Введите среднее геометрическое чисел а и b'); read(c);d:=sqr(a*b);Write(c=d);end.