Составить программу, печатающую значение 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.