Двозначні числа, сума квадратів яких кратна 9

program kratnist;
var i,s,a,b: integer;
begin
for i:=10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
s:=sqr(a)+sqr(b);
if s mod 9=0 then writeln (i);
end;
readln
end.