Помогите с задачей на pascal abc - на теме отсутвовал... Задача: НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛА СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста

uses crt; var a,s:integer; begin clrscr; repeat write('Введите трехзначное число a='); readln(a); until (a>=100)and(a<=999); s:=0; while a>0 do  begin   s:=s+sqr(a mod 10)*(a mod 10);   a:=a div 10;  end; if a*a=s*s*s then write('Квадрат числа=сумме кубов его цифр') else write('Квадрат числа<>сумме кубов его цифр'); readln end.   самое легкое что я придумал