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

я ввел 822,он вывел: "1 цифра равна сумме квадратов 2 и 3" 2 в квадрате(4) + 2 в квадрате(4)4+4 =8

а косяк,все правильно)

Эм, я всегда свои программы перед публикацией компилирую для проверки

прости,просто лохонулся я,когда компилировал)

Бывает)

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.