Найти все двузначные числа, квадрат суммы цифр которых делится на

program z;
var i,a,a1,s:integer;
begin
writeln('Двухзначные числа, квадрат суммы цифр которых делится 13');
for i:=10 to 99 do
begin
a:=i;
s:=0;
while a<>0 do
begin
a1:=a mod 10;
s:=s+a1;
a1:=a div 10;
a:=a1;
end;
if sqr(s) mod 13=0
then
writeln(i);
end;
end.