Очень нужна помощь !!!С клавиатуры вводятся трёхзначные числа до тех пор,пока первая цифра не станет равна третьей.Вывести на экран только те числа,где сумма цифр меньше десяти.
Паскаль abc

var a,a2,b,c:integer;beginwrite('введите трёхзначное число ==> ');readln(a);a2:=a;while ((a div 100)<>(a mod 10)) do beginwhile (a2<>0) do beginb:=a2 mod 10;c:=c+b;a2:=a2 div 10;end;if c<10 then writeln('сумма цифр меньше 10 ==> ',a);c:=0;write('введите трёхзначное число ==> ');readln(a);end;end.