Дано двузначное число. Определить , равен ли квадрат этого числа учетверенной сумме кубов его цифр.
60 БАЛОВ!!!

var  d1,d2,n:integer;  k,s:longint;begin  Write('Введите натуральное двухзначное число: '); Read(n);  d1:=n div 10; d2:=n mod 10;  k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));  Write(n,': ');  if k=s then Writeln('Квадрат числа (',k,      ') равен учетверенной сумме кубов его цифр')  else Writeln('Квадрат числа (',k,      ') не равен учетверенной сумме кубов его цифр (',s,')')end.Тестовое решение:Введите натуральное двухзначное число: 4848: Квадрат числа (2304) равен учетверенной сумме кубов его цифрВведите натуральное двухзначное число: 4747: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))