Информатика
пришлите фото с решением

Выбрать требуемую толщину линий и кривых.Окно Палитра отображает текущий основной цвет и цвет фона. Чтобы рисовать выбранным основным цветом, протащите указатель. Чтобы рисовать выбранным цветом фона, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению. Чтобы изменить текущий основной цвет, щелкните любой из доступных цветов. Чтобы изменить цвет фона, щелкните правой кнопкой мыши любой из доступных цветов. Чтобы создать новый цвет, щелкните правой кнопкой мыши любой из цветов и нажмите кнопку Определить цвет. Инструмент Криваяпозволяет проводить сглаженную кривую линию. Выберите инструмент Кривая, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Когда линия проведена, щелкните область изображения, где требуется разместить изгиб, и протащите указатель для придания дуге нужного изгиба.Инструмент Линия позволяет проводить прямую линию. Выберите инструмент Линия, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Чтобы провести линию фонового цвета, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению.

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.

Тестовое решение:
Введите натуральное двухзначное число: 48
48: Квадрат числа (2304) равен учетверенной сумме кубов его цифр

Введите натуральное двухзначное число: 47
47: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)

Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))