Написать программу нахождения суммы и произведения всех трехзначных чисел кратных 3!

Var  x: integer; begin write ('введите трехзначное число'); read(x);       for i: =1 to 3 do begin        d: = x mod 10;         x: = x div 10;         s1: = s1+d      end;       for i: =1 to 3 do begin        d: = x mod 10;         x: = x div 10;         s2: = s2+d      end;       if s1=s2 then write('счастливый') else write('не счастливый') end. 

1) 4 гб = 4*1024*1024*1024 = 2^2*2^10*2^10*2^10 = 2^32 = ок.4 млрд б       2 тб = 2*1024*1024 = 2*2^10*2^10 = 2^21 мб       2^13 бит = 2^13/8*1024 = 2^13/2^3*2^10 = 2^13/2^13 = 1 кб 2)  я помню чудное мгновенье:     i = 1 б = 8 бит    k = 25    v = ?     v = k*i = 25*8 = 200 бит = 25 б3) переводим всё в биты: 1024 мб = 1024*1024*1024*8 = 2: ^33 бит     1 кб = 1*1024*8 = 8192 бит    следовательно в и г равны