Добавить подпрограмму

[Виктория49]

Сформировать множество целых чисел из диапазона 1..255 - Pascal- условие задачи
Код:
var m:set of byte;
i,j:byte;
begin
m:=[];
for i:=1 to 15 do
for j:=i+1 to trunc(sqrt(255-i*i)) do
m:=m+[i*i+j*j];
for i:=1 to 255 do
if i in m then write(i:4);
readln
end.

нужно добавить подпрограмму

[Alex11223]

И? Нужно — добавьте.

[Виктория49]

если бы знала как, не создавала бы тему

[Alex11223]

Если кто-то просто решит за вас задачу, то это вряд ли поможет вам в изучении. А для того, чтобы помочь/подсказать/направить в нужное русло, недостаточно просто выложить задание ("добавить подпрограмму"), нужно хотя бы узнать где конкретно возникли трудности.

[Sciv]

// Определим собственный тип для множества
// Просто set of byte как параметр функции не примет компилятор
type
  TByteSet = set of byte;

// Функция, заполняющая множество значениями
// На выходе - требуемый set of byte
function GetSet: TByteSet;
var
  i, j: byte;
begin
  Result := [];
  for i := 1 to 15 do
    for j := i + 1 to trunc(sqrt(255 - i * i)) do
      Result := Result + [i * i + j * j];
end;

// Процедура вывода элементов множества на экран
// На входе - само множество байт
procedure OutputSet(ASet: TByteSet);
var
  i, j: byte;
begin
  for i := 1 to 255 do
    if i in ASet then
      write(i:4);
end;

// Основная программа
var
  m: TByteSet;
begin
  m := GetSet;
  OutputSet(m);
  readln
end.

[Виктория49]

Большое Вам спасибо с: