Найти n-ый член арифметической прогрессии и сумму элементов, если An=A1+d*(n-1), Sn=(A1+An)*n/2. Напишите фрагмент программы:

Запрещяется:

трогать разъемы соединительных кабелей;

прикасаться к питающим проводам и устройствам заземления;

прикасаться к экрану и к тыльной стороне монитора;

включать и отключать аппаратуру без указания преподавателя;

класть диск, книги, тетради на монитор и клавиатуру;

работать во влажной одежде и влажными руками.

Перед началом работы:

Убедитесь в отсутствии видимых повреждений рабочего места; сядьте так, чтобы линия взора приходилась в центр экрана, чтобы, не наклоняясь, пользоваться клавиатурой и воспринимать передаваемую на экран монитора информацию.

Разместите на столе тетрадь, учебное пособие так, чтобы они не мешали работе на ЭВМ.
Внимательно слушайте объяснения учителя и старайтесь понять цель и последовательность действий; в случае необходимости обращайтесь к преподавателю.

Хорошо разберитесь в особенностях, применяемых в работе аппаратов.

Начинайте работу только по указанию преподавателя «Приступить к работе».

Во время работы:

Строго выполняйте все указанные выше правила, а также текущие указания учителя.

Следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры. Немедленно докладывайте об этом преподавателю.

Плавно нажимайте на клавиши, не допуская резких ударов.

Не пользуйтесь клавиатурой, если не подключено напряжение.

Работайте на клавиатуре чистыми руками.

Никогда не пытайтесь самостоятельно устранять неисправности в работе аппаратуры.

Вы должны хорошо знать и грамотно выполнять эти правила, точно следовать указаниям преподавателя, чтобы:

а) избежать несчастных случаев;

б) успешно овладеть знаниями, умениями, навыками;

в) сберечь вычислительную технику и оборудование.

Правильная посадка при работе за компьютером.

Сидеть нужно на расстоянии 60—70 см от монитора, допустимо не менее 50 см, соблюдая правильную посадку, не сутулясь, не наклоняясь;
Экран монитора не должен находиться выше уровня глаз.

Ноги должны стоять на полу, согнутыми в коленках под прямым углом. Они не должны свисать со стула.

Лучше всего использовать специальные стулья для работы за компьютером.

Руки в локтях должны быть согнуты под прямым углом.
В топ если

Const
  n = 10;

var
  D: array[1..n] of integer;

function Sum3(k: integer): integer;
begin
  Sum3 := D[k] + D[k + 1] + D[k + 2]
end;

var
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin D[i] := Random(11); Write(D[i]:3) end;
  Writeln;
  Writeln('Сумма D[1]..D[3]: ', Sum3(1));
  Writeln('Сумма D[3]..D[5]: ', Sum3(3));
  Writeln('Сумма D[4]..D[6]: ', Sum3(4))
end.

Тестовое решение:
Элементы массива
  2  1  5  9 10  2  9  7  2  1
Сумма D[1]..D[3]: 8
Сумма D[3]..D[5]: 24
Сумма D[4]..D[6]: 21