Листинг программы

program z48;

{ Найти минимальное число, которое представляется суммой четырёх

  квадратов натуральных чисел не единственным образом            }

uses crt;

var ch,a,b,c,d,k,cc:longint;

 begin

  clrscr;

   for ch:=1 to 100 do

    for a:=1 to 100 do

     for b:=1 to 10 do

      for c:=1 to 10 do

       for d:=1 to 10 do

        begin

         if cc<>ch then k:=0;

         if a*a+b*b+c*c+d*d=ch then begin cc:=ch;inc(k); end;

         if k>1 then begin

                      write(ch,' - ',a,',',b,',',c,',',d);

           readln;halt;

          end;

        end;

 end.