Основные правила работы за компьютором

1колина должны быть по горизонтальной линии на уровне бедер; голени должны быть под прямым углом к ​​ступней ног. 2 не надо садиться на краешек стула, нужно чтобы вес тела распределилась на ягодицы и бедра, а не позвоночник. 3 ступни должны стоять на полу на ширине бедер (а не болтаться в воздухе). нежелательно сидеть, скрестив ноги. никогда не надо сидеть, надолго закинув ногу за ногу, так как это приводит к искривлению позвоночника. 4 спину следует стараться держать прямо. 5 плечи лучше опустить и слегка отводить назад, не напрягаться. 6 голову нужно держать прямо и ровно, не извлекать шею вперед. 7 сидеть лучше так, чтобы не приходилось тянуться вперед к клавиатуре. живот должен почти касаться края стола. 8 монитор на столе нужно установить на расстоянии вытянутой руки от ребенка. центр экрана должен находиться на уровне глаз, чтобы не приходилось наклонять голову, напрягая шею. если невозможно поднять экран, нужно изменить угол его наклона, подложив под монитор подставку. 9 рабочие материалы лучше класть прямо перед собой. 10 в соответствии с требованиями техники безопасности при работе за компьютером, через каждые 15 минут ребенку нужно вставать и делать разминку. суммарное время пребывания за компьютером должна соответствовать возрасту и состоянию здоровья - в ​​соответствии с рекомендациями врачей: педиатра и окулиста.

Не есть не пить это что бы не испачкать клавиатуру  не бить я не знаю правильно это или нет мне за это 5 поставили 

Program zadbl; uses crt; var  a,b,c,i,s: integer; m: array[1..30] of integer; begin  s: =-1;   for i: =1 to 30 do   begin  m[i]: =random(100);   write(m[i]: 3);   end;   for i: =1 to 28 do   begin    if m[i]+m[i+1]+m[i+2]> s then   begin    a: =m[i];     b: =m[i+1];     c: =m[i+2];     s: =a+b+c;     end;     end;     writeln('   a   b   c');     write(a: 3);     write(b: 3);     write(c: 3);     readln; end.

Const   n = 15; var   i: integer;   a: array[1..n] of integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(100) - 50;       write(a[i]: 6);       if a[i] < 0 then a[i] : = sqr(i)   end;   writeln;   writeln('результирующий массив');   for i : = 1 to n do write(a[i]: 6);   writeln end. тестовое решение: исходный массив         3      37      40      17      20    -12    -27        4      34      -1        9      42      -6    -36      28 результирующий массив         3      37      40      17      20      36      49        4      34    100        9      42    169    196      28