Определить все трехзначные числа, которые при делении на 11 в частном число, равное сумме квадратов цифр исходного числа.

Var i,j,k:integer;
begin
for i:=1 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
     then writeln(i*100+j*10+k);
end.

Результат:
131
241
324
550
624
803
900
910

Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   if ((i*100+j*10+k) mod 11) = 0 then
    if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
      then writeln(i*100+j*10+k);
end.

Результат:
550
803