Записати обробник події OnClick для кнопки, виконання якого встановить відстань кнопки від верхньої межі форми 150 пікселів, ширину кнопки 100 пікселів, і виведе у напис текст червоного кольору "Контрольна робота"

1)Американский учёный, выдающийся математик и философ, основоположник кибернетики и теории искусственного интеллекта.Мировую известность Винеру принесли его труды в области математической логики и теоретической физики.Заслуга Норберта Винера в том, что он впервые понял принципиальное значение информации в процессах управления.
2) Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации 
Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации
3) Термин гипертекст впервые появился двадцать лет спустя и был введен в 1965 году Тедом Нельсоном, "одним из самых известных учеников Буша
4) Тим Бернерс-Ли, британский ученый, изобрел World Wide Web (WWW) в 1989 году.
5)еонард Эйлер (1707-1783) — математик, механик, физик и астроном. По происхождению швейцарец. Идеальный математик 18 века - так часто называют Эйлера. 

Ученый необычайной широты интересов и творческой продуктивности. Автор свыше 800 работ по математическому анализу, дифференциальной геометрии, теории чисел, приближенным вычислениям, небесной механике, математической физике, оптике, , кораблестроению, теории музыки и других, оказавших значительное влияние на развитие науки. За время существования Академии наук в России, считается одним из самых знаменитых ее членов.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(4,4,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var sn:=a.ElementsByRow.Where(t->t<0).Sum;
  Writeln('Сумма отрицательных элементов равна ',sn);
  var sd:=0;
  for var i:=0 to a.RowCount-1 do sd+=a[i,i];
  Writeln('Сумма элементов на главной диагонали равна ',sd);
end.

Пример
*** Исходный массив ***
  55 -36  70  19
  79  14   5  -5
  79  -9 -62  20
 -71  69 -34  66

Сумма отрицательных элементов равна -217
Сумма элементов на главной диагонали равна 73