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

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.

program Zadanie01;
var
 n1: integer; // Переменная которая хранит значение делителя.
 
procedure kvadratsum(n: integer);
var  // Процедура, которая ищет двузначные числа,
      // сумма квадратов чисел которых делится на n.
  i, a1, a2, s: integer;
begin
  for i := 10 to 99 do  // Перечисляем двузначные числа.
  begin
      s := 0;
      a1 := i mod 10;
      a2 := i div 10;
      s := sqr(a1) + sqr(a2); // Вычисляем сумму квадратов чисел.
      if (s mod n) = 0 then  // Проверяем условие делимости.
        write(i:4);    // Выводим результат на экран.
  end;
end;
 
 
 
begin
  writeln('Введите число делителя: ');
  readln(n1);
  writeln();
  writeln('Двухзначные числа, квадрат суммы цифр которых делится на ',n1,':');
  writeln();
  kvadratsum(n1);
 
  readln();
end.

 s := sqr(a1) + sqr(a2); // Вычисляем сумму квадратов чисел.

const
  k = 13;
 
function pass(x: integer): boolean;
begin
  pass := (sqr(x div 10) + sqr(x mod 10)) mod k = 0
end;
 
var
  n: integer;
 
begin
  writeln('Двузначные числа, сумма квадратов цифр которых делится на ', k, ':');
  for n := 10 to 99 do if pass(n) then write(n, ' ')
end.