Решить по программе Паскаль.Найти все двузначные числа, сумма квадратов цифр которых кратна M.

Var
  i10,i1,m:integer;
begin
  Write(m=); Read(m);
  for i10:=1 to 9 do
    for i1:=0 to 9 do
      if (i10*i10+i1*i1) mod m=0 then Write(i10,i1, );
  Writeln(#13#10,Работа завершена)
end.

Пример
m=10
13 17 24 26 31 39 42 48 55 62 68 71 79 84 86 93 97
Работа завершена