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

Сумма цифр данного трехзначного числа N является четным числом.
Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
Треугольник со сторонами a, b, c является равнобедренным.

{ Ответ дан на языке Pascal }//1-ая задачаPROGRAM Solution(INPUT, OUTPUT);VAR  num: INTEGER;  n1, n2, n3: INTEGER;BEGIN  WRITE('Введите 3-значное число: ');  READ(num);  n1 := (num DIV 100);  n2 := (num MOD 100 MOD 10);  n3 := (num MOD 100 DIV 10);  IF(n1 + n2 + n3) MOD 2 = 0  THEN WRITELN('Чётное')  ELSE WRITELN('Нечётное');END.//2-ая задачаPROGRAM Solution(INPUT, OUTPUT);VAR  num: INTEGER;  n1, n2, n3: INTEGER;BEGIN  WRITE('Введите 3-значное число: ');  READ(num);  n1 := (num DIV 100);  n2 := (num MOD 100 MOD 10);  n3 := (num MOD 100 DIV 10);  IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3)  THEN WRITELN('Равен')  ELSE WRITELN('Не равен');END.//3-я задачаPROGRAM Solution(INPUT, OUTPUT);VAR  a, b, c: INTEGER;BEGIN  WRITE('Введите a, b, c: ');  READ(a, b, c);  IF(a = b) OR (b = c) OR (c = a)  THEN WRITELN('Равнобедренный')  ELSE WRITELN('Не равнобедренный');END.