В начало

Процедура Сформировать

 

Процедура Сформировать ()

   Сч = СоздатьОбъект ("Счетсновной");

   СчыбратьСчета ();

   Пока СчолучитьСчет () = 1 Цикл

      Сообщить (Счод);

   КонецЦикла;

КонецПроцедуры