Make(webapp)
Add(MainForm,1,42,28)
{
}
Add(NumberEdit,2,126,77)
{
  Left=122
  Top=35
  Width=#2:57|
  Number=2017
  Min=1900
  Max=3000
}
Add(For,3,147,140)
{
  link(onEvent,5:doString,[])
  link(End,2:Number,[(153,125)(132,125)])
  link(Start,11:Number,[(160,125)(174,125)])
}
Add(ListBox,7,518,140)
{
  Left=203
  Top=35
  Width=#3:113|
  Height=#3:212|
  PInfo(Str,2,года, в которых 1 января приходится на понедельник)
  link(Str,36:Var3,[(524,102)])
}
Add(Button,8,455,154)
{
  Left=56
  Top=133
  Width=#2:59|
  Caption=#8:Очистить|
  link(onClick,7:doText,[(503,160)(503,153)])
}
Add(Button,10,77,140)
{
  Left=56
  Top=91
  Caption=#5:Старт|
  link(onClick,3:doFor,[])
}
Add(NumberEdit,11,168,77)
{
  Left=56
  Top=35
  Number=1990
  Min=1990
  Max=3000
}
Add(FormatStr,5,245,140)
{
  DataCount=3
  Mask=#8:%3.00.01|
  @Comment=#10:ГГГГ.ММ.ДД|
  AddHint(-20,46,0,0,@Comment)
  link(onFString,31:doWork1,[])
  link(Str3,36:Var2,[])
}
Add(If_else,4,371,140)
{
  Op2=Real(1)
  @Comment=#18:только понедельник|
  AddHint(-45,49,0,0,@Comment)
  link(onTrue,7:doAdd,[])
}
Add(Inline,31,301,140)
{
  WorkCount=1
  EventCount=1
  Code=#25:doWork1: function(data) {|28:	let arrD = data.split('.');|53:	let birthDate = new Date(arrD[0], arrD[1], arrD[2]);|36:  this.onEvent1(birthDate.getDay());|1:}|
  @Comment=#22:Определяем день недели|
  AddHint(-62,80,0,0,@Comment)
  link(onEvent1,4:doCompare,[])
}
Add(GetDataEx,36,259,95)
{
  Angle=3
  link(Data,3:Position,[(215,102)(215,181)(153,181)])
}