Как и зачем можно использовать вставку Полей в текстовых документах?

program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.

трех сажаешь по углам ограждения , двух в центр 

для этого модема нужно: источник питания: через внешний адаптер питания переменного тока 9 в /1a параметры блока питания robiton dn1000: блок питания 1000ма, нестабилизированный выходное напряжение: 3,0 / 4,5 / 6,0 / 7,5 / 9,0 / 12,0 в 12,0 вполне подойдет. даже не нужно заморачиваться правильным подключением +/- т.к. модем питается переменкой. я бы порекомендовал сначала включить бп на 7,5 вольт. если модем будет так работать, то так и оставить. если не работает, переключить на 9 вольт. только ни в коем случае не переключайте выходное напряжение бп, если он подключен к модему! в момент переключения, напряжение на выходе бп может сильно прыгнуть!

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end.