1.какие команды контекстного меню применяются чаще? 2.как понять, что есть гиперссылка? 3.как удалить гиперссылку? 4.что такое авторское право? 5.как бороться с плагиатом? 6.каким образом в документе можно указать ссылку на автора?

Минулого літа я з батьками відпочивав на морі. ми часто приходили на пляж поблизу невеличкої пристані. хлопчикам дуже стрибати там у воду. якось я помітив, що десь по обіді біля пристані з'являється величезний чорний собака. у нього довга шерсть, блискучі карі очі. за такої літньої спеки він відразу кидається в море й пливе ближче до того місця, де збираються стрибуни. там він очікує хлопчиків чи дівчаток, які будуть стрибати у воду. спершу було незрозуміло, чому він пливе саме туди. та підійшовши ближче, я усе второпав. собака чекає, поки хтось стрибне, випірне, а він уже поруч, і дітлахи із задоволенням хапаються за його спину, загривок або просто за шерсть, навіть за хвоста. і дар (так кличуть собаку) із усіх сил прямує до берега. усім дуже весело. одного разу прийшов ігор іванович — хазяїн собаки, і я запитав про дивну поведінку дара. ігор іванович розповів, що це сталося кілька років тому. маленька дівчинка стояла на пристані, оступилася і впала у воду. дорослі кинулися їй, але дар випередив усіх. дівчинка вхопилася рученятами за шерсть собаки, а він із усіх сил чимдуж поплив до берега. і з тих пір він нібито рятує всіх дітей, які бавляться на пристані. мені теж було приємно пливти до берега, тримаючись за чорну спину дара.

Подозреваю, что не самый рациональный метод решения, но чем смог тем : ) const  n = 30;   var  a: array [1..n] of longint;   i, j, k: longint;   begin  for i : = 1 to n do  readln(a[i]);   j: =0;   k: =0;   for i: =1 to n do begin  if (abs(a[i])> =10) and (abs(a[i])< 100) and (a[i]> 0) then inc(k);   if (abs(a[i])> =10) and (abs(a[i])< 100) and (a[i]< 0) then inc(j);   end;   if k> j then writeln(j)  else if k< j then writeln(k)  else if k=j then writeln(k);   end.