Упростите логическую функцию​

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=a+b+c;
  var k:=Trunc(sqrt(s));
  if k*k=s then Writeln('Сумма чисел - квадрат ',k)
  else Writeln('Сумма чисел не является квадратом целого')
end.

Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=power(a*b*c,1/3);
  if s=int(s) then Writeln('Среднее геометрическое - целое число')
  else Writeln('Среднее геометрическое - нецелое число')
end.

Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число

Если СС системы счисления, то:

Двоичная:

126 = 1111110

Переводим целую часть 12610 в 2-ую систему последовательным делением на 2:

126/2 = 63, остаток: 0

63/2 = 31, остаток: 1

31/2 = 15, остаток: 1

15/2 = 7, остаток: 1

7/2 = 3, остаток: 1

3/2 = 1, остаток: 1

1/2 = 0, остаток: 1

126 = 1111110

Обратно:

Переводим 1111110 в десятичную систему:

1111110 = 1·2⁶+1·2⁵+1·2⁴+1·2³+1·2²+1·2¹+0·1 = 126

Восьмеричная:

126 = 176

Переводим целую часть 126 в 8-ую систему последовательным делением на 8:

126/8 = 15, остаток: 6

15/8 = 1, остаток: 7

1/8 = 0, остаток: 1

126 = 176

Обратно:

Переводим 1768 в десятичную систему:

176 = 1·8²+7·8¹+6·1 = 126

Шестнадцатиричная:

126 = 7E

Переводим целую часть 126 в 16-ую систему последовательным делением на 16:

126/16 = 7, остаток: 14, 14 = E

7/16 = 0, остаток: 7

126 = 7E

Обратно:

Переводим 7E в десятичную систему:

7E = 7·16¹+14·1 = 126

Как-то так)