Имеется десятичное число 453. Какой вес имеет каждая позиция?

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

4 клетки вниз и 7 вправо                                                                                                                           

в некотором царстве, в некотором государстве жила-была… нет! так все сказки начинаются. а моя сказка начинается по-другому. на далёком острове среди бушующего океана информации раскинулось государство технология. царствовала там мудрая информатика. и были у неё подданные: микросхемы, мониторы, процессоры, клавиатуры, компьютерные мыши и многие другие жители. захотела информатика общаться с другими государствами и построила интернет-порталы. узнали о государстве технология на близких островах и далёких землях. царица информатика была щедрой правительницей. она приходила на всем, кто её об этом просил. все радовались неоценимым подаркам информатики. но один злой правитель захотел всё могущество и знание информатики прибрать к своим рукам. однако ему не удалось заполучить её знания, поэтому он решил причинить информатике вред. и начал он создавать армию вирусов. вирусы были коварные. под видом добрых намерений они пробирались в дома к программам и портили их. информатика и не догадывалась, какая угроза нависла над её жителями. однажды она зашла к windows xp, а он оказался испорченным и не узнал её. информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. windows вспомнил и сказал об этом информатике. информатика созвала совет старейшин и рассказала им о проблеме. посовещавшись, они вместе начали создавать антивирусы. получилось целое войско: dr. web, kaspersky, avira, panda, nod32 и другие. когда следующая партия вирусов прошла через интернет, на них набросились антивирусы и связали их. подлые враги рассказали, кто их сделал. злого правителя поймали, посадили в клетку. царица информатика не закрыла интернет, а только расставила на границах стражу от вирусов. так и по сей день правит информатика в своём государстве и делится своими знаниями с добрыми людьми