Дано двухзначное число определить равен ли квадрат этого числа учетверенной сумме кубов его цифр например для числа 48 положительный для числа 52 отрицательный в pascal

Var  n: integer; begin  write('введите число ');   readln(n);   if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod then write('ответ положительный') else write('ответ отрицательный'); end.

всего цветов: 7цветов

значит 7*3=21