Номер 19, пример под буквой б.
заранее )!

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

3^i = 18

i = 3

ответ. 3 лампочки.

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

var a,b,c,d,x,res: integer;

begin

readln(x);

a: =x div 1000;

b: =x mod 10;

c: =x div 100 mod 10;

d: =x mod 100 div 10;

res: =a+b+c+d;

writeln(res);

readln;

end.