Программа events. виберіть кнопку подія 1 ще раз. запишіть у зошит, які події відбулися. іть будь !

Эт можно поточнее? задание рассказать?

1.Для начала нарисуйте основной контур корабля. Для будущего корпуса нарисуйте такую вот несложной формы контур, из которого мы и будем "строить" корабль.
2.Теперь нужно нарисовать основу мачт старинного деревянного корабля парусника. Для этого сначала нарисуйте две длинные вертикальные линии. Первая справа будет самая большая и левая чуть короче. Пометьте мачты корабля черточками в тех местах, где будут перекладины для парусов.
3.На этом этапе нужно нарисовать контуры парусов фрегата. Рисуйте их почти прямоугольной формы. На крайней правой мачте их будет три (треугольной формы). На средней мачте будет пять парусов, на последней мачте корабля тоже пять, но только меньшего размера.
4.Сейчас нам нужно будет нарисовать корму парусного корабля в деталях. Нарисуйте боковую линию кормы плавной линией, а также учтите, что задняя часть кормы должна располагаться чуть ниже по отношению к носовой части корабля. Выделите носовую часть еще одной вертикальной линией и нарисуйте продольные участки вдоль корпуса.
5.На этом этапе рисуем мачты и паруса нашего парусника более детально. Прежде всего, удалите ластиком предыдущие ненужные контуры основы корабля и мачт, а после прорисуйте окончательно форму всех парусов и мачт. Чтобы вам было легче это сделать, ориентируйтесь на мой рисунок.
6.Сейчас займемся парусами корабля "основательно" и натянем их полотнище ветром. Начнем с первой наклонной мачты. Эти паруса будут в виде треугольников. Придадим этим парусам небольшой изгиб от бокового ветра. Нарисуйте в деталях и основные паруса корабля. Для этого вертикальные прямые линии нужно заменить слегка изогнутыми. Это создаст впечатление дующего в паруса ветра, а заодно и движения корабля.
7.Если вы будете рисовать корабль только простым карандашом, то для нанесения теней используйте мягкий карандаш. Затените гормональные участки кормы. С теней мачты и паруса на рисунке станут объемными.

Const n=20;
var x,y : array[1..n] of integer;
   i,a,b,c : integer; f:real;
begin
Randomize;
 writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=random(101)-50;
  write(x[i],' ');
 end;
 writeln;
a:=0; b:=0; c:=0;
for i:=1 to n do
 begin
 if x[i]<0 then a:=a+x[i];
 if x[i] mod 2 = 0 then b:=b+1;
 if (c=0)and(x[i]>0) then c:=i;
 end;
writeln('A=',a,'  B=',b,'  C=',c);
f:=c+((a+b)/(10-c+a));
writeln('F=',f:5:2);
end.

Пример:
Исходный массив:
10 -37 1 31 -22 45 3 32 -2 48 -19 -48 39 22 -39 -29 -49 8 -16 22
 A=-261 B=10 C=1
F= 2.00