Помогите пожалуйста. Напишите программу, которая возводит введённое число в степень 10, используя только операции сложения и умножения. Что произойдёт, если ввести большое число 78?

var  n,p2,p8,r:integer;begin  Write('Введите целое число: ');  Read(n);  p2:=n*n;   { n^2 }  p8:=p2*p2; { n^4 }  p8:=p8*p8; { n^8 }  r:=p2*p8;  { n^10 }   Writeln(r)end.Контрольные решенияВведите целое число: 21024Введите целое число: 59765625Введите целое число: 78605996032(на самом деле должно быть 8335775831236199424)