program nem_bomlik_ot_negyzetszamra;
uses Crt;
var
  e : array[1..170] of boolean;
  i,j,k,l,m,s,h,n : integer;
begin
  ClrScr;
  WriteLn(' N E M   B O M L A N A K   F E L  5  N � G Y Z E T  ™ S S Z E G � R E':75);
  WriteLn; WriteLn;
  { feltessz�k, hogy egyik sem bomlik  }
  for i:=1 to 170 do e[i]:=FALSE;
  { az 1,2,3,4 biztos nem teh t 5-t“l vizsg ljuk 170-ig a t”bbi sz mot,
    ‚s ”t egym sba  gyazott ciklus az el“ ll¡t sra }
    for i:=1 to 13 do
     for j:=i to 13 do
      for k:=j to 13 do
       for l:=k to 13 do
        for m:=l to 13 do
         begin
           { minden el“ ll¢ IGAZ-ra m¢dosul }
           s:=i*i+j*j+k*k+l*l+m*m;
           if s<170 then e[s]:=TRUE;
         end;
   { ami HAMIS maradt azt ¡rjuk ki }
   for i:=1 to 169 do
    if not e[i] then WriteLn(i:38);
   GotoXY(45,25); Write('B rmi kil‚p ...');
   repeat until KeyPressed;
end.