Среди натуральных трехзначных чисел найти те, сумма квадратов цифр которых делится на А, а само число делится на А+1

var x,i,y,z,k,a:integer;
begin
 write('Введите А ');
 readln(a);
 for i :=100 to 999 do
   begin
    x:= i div 10;
    y:= i div 10 mod 10;
    z:= i mod 10;
    k:= x*x+y*y+z*z;
    if (k mod a=0) and (k mod a+1=0) then
    begin
      write(i:4);
    end;
   end;
end.

var
  a, i, j, s: integer;
 
begin
  writeln('Введите ''a'':');
  readln(a);
  for i := 100 to 999 do 
  begin
    j := i; s := 0;
    while j <> 0 do 
    begin
      s := s + sqr(j mod 10);
      j := j div 10;
    end;
    if (s mod a = 0) and (i mod (a + 1) = 0) then write(i:6)
  end;
  readln
end.

var
  a, i, j, s: integer;
 
begin
  writeln('Введите ''a'':');
  readln(a);
  for i := 100 to 999 do  // проверяем все трехзначные числа
  begin
    j := i; s := 0; // мы не можем напрямую работать со счетчиком i, а сумма квадратов цифр должна при работе с КАЖДЫМ НОВЫМ числом обнуляться
    while j <> 0 do // пока все цифры не будут удалены
    begin
      s := s + sqr(j mod 10); // прибавляем к сумме квадрат последней цифры
      j := j div 10;  // удаляем последнюю цифру
    end;
    if (s mod a = 0) and (i mod (a + 1) = 0) then write(i:6) // проверка условия задачи
  end;
  readln
end.