Сна 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.

самое легкое что я придумал