Найдите все двузначные числа, квадраты которых делятся на 13. (программа)

Program n1;
var i: integer;
begin
for i:=10 to 99 do if i*i mod 13=0 then write(i,' ');
end.