Множини

[HelloInside]

Ребят помогите решить задачу,а то я что-то запутался;( Притом в множинах не очень розбираюсь.

В порядке возрастания напечатать все целые числа из диапазона 1 ... 256, которые можно представить в виде sqr (n) + sqr (m), где m, n> = 0 - целые числа.

[HelloInside]

program gr;
 
var k,n,m:integer;
    i,j,s:integer;
    w:boolean;
begin
 
for k:=1 to 256 do {проходим этим циклом от 1 до 256}
begin
w:= false; {присваиваем изначально этой переменной ЛОЖЬ}
for n:=1 to k do {цикл проверки чисед "N"}
for m:=n to k do {цикл проверки чисед "M"}
if sqr(n)+sqr(m)=k then w:= true; {проверяем условие "n( в квадрате)+ m (в квадрате)"}
if w then writeln(k);     end;  {если верно то выводим это число}
 
readln; readln;
end.

Вот я так сделал, правильно или нет?

Вроде должно работать, но у меня выдает ошыбку, "Арифметическое переволнение"

[Mad_Cat]

держите) оптимизируйте)

var  a:set of byte;
i,j:integer;
begin
a:=[];
for I := 1 to trunc(sqrt(256)) do
  for j :=  trunc(sqrt(256)) downto i do
   if ((sqr(i)+sqr(j))>=1) and ((sqr(i)+sqr(j))<=256) then
   a:=a+[(sqr(i)+sqr(j))];
for I := 1 to 256 do
  if i in a then   write(i,' ');
readln;
end.

[HelloInside]

Спасибо. Но выдает ошыбку: "Ошыбка проверки диапазона."

[Mad_Cat]

не оптимально но Работает же

[Arigato]

Байты от 0 до 255, а не от 1 до 256.

[BDA]

set of byte подразумевает диапазон 0..255, а не 1..256
замените a:=a+[(sqr(i)+sqr(j))]; на a:=a+[(sqr(i)+sqr(j))-1];
и for I := 1 to 256 do if i in a then write(i,' '); на for I := 0 to 255 do if i in a then write(i+1,' ');

[HelloInside]

Сообщение от BDA

set of byte подразумевает диапазон 0..255, а не 1..256
замените a:=a+[(sqr(i)+sqr(j))]; на a:=a+[(sqr(i)+sqr(j))-1];
и for I := 1 to 256 do if i in a then write(i,' '); на for I := 0 to 255 do if i in a then write(i+1,' ');

Спасибо большое