Дано трехзначное число.проверьте равна ли его первая цифра сумме квадратов второй и третьей

var a1,a2,a3,a:integer;

begin

write('Введите трехзначное число: ');

readln(a);

if (a>99) and (a<1000) then

begin

a1:=a div 100;

a2:=a div 10 mod 10;

a3:=a mod 10;

if a1=sqr(a2)+sqr(a3) then writeln('1 цифра равна сумме квадратов 2 и 3 цифр') else writeln('1 цифра не равна сумме квадратов 2 и 3 цифр');

end else

writeln('Было введено не трехзначное число!');

end.