Задані цілі числа від 1 до 100.Надрукувати в порядку зростання усі числа що можна подати у вигляді 7*i*j+j+3, де i,j - цілі числа.

[Саша513]

Задані цілі числа від 1 до 100.Надрукувати в порядку зростання усі числа що можна подати у вигляді 7*i*j+j+3, де i,j - цілі числа.

ПОМОГИТЕ НА ЗАВТРА НАДА!!!!!

Множини


program lab8;
uses crt;
var mn: set of 1..100;
ch,g,i,j,k,tmp: byte;
s:char;
mas: array [1..100] of byte;
begin
clrscr;
writeln('continue [y,n]');
repeat
write('ch - ');
readln(ch);
include(mn,ch);
s:=readkey
until s='n';
writeln('rezult:');
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
g:=7*i*j+j+3;
if g in mn then begin
k:=k+1;
mas[k]:=g;
end;
end;

for i:=1 to k do
for j:=1 to k do
if mas[i] < mas[j] then
begin
tmp:=mas[i];
mas[i]:=mas[j];
mas[j]:=tmp;
end;

for i:= 1 to k do
if i=k then write(mas[i],'.')
else write(mas[i],', ');

readkey;
end.


не знаю што не так((