сколько стоит 1 грамм янтаря НЕ УКРАШЕНИЙ

1) for i:=1 to n do write('?');
2) writeln(a*a:5;6*a*a:5,a*a*a:6);
3)k:=0; i:=500; repeat if (i mod 13=0) or (i mod 17) then write(i:5);i:=i+1; k:=k+1; until k>20;

Вы думаете, что методами программирования можно ответить на данный вопрос?