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

Question

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

Answer 1

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