1 вариант 1) Найти сумму последовательности чисел от 4 до 9.
2) Напишите программу, которая в последовательности натуральных чисел определяет
среднее арифметическое введенных чисел до ввода числа -1.
Программа получает на вход натуральные числа, введенные с клавиатуры. Котичество
Введенных чисел не известно.
Последовательность чисел заканчивается числом
(-1— признак окончания ввода, не входит в после ельность).
3) Напишите программу, которая в последовательности из 15-ти введенных с
Клавиатуры чисел определяет их произведение​ (на паскале с repeat, until).

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

Требования безопасности перед началом работы:

1. Запрещено входить в кабинет в верхней одежде, головных уборах, с громоздкими предметами и едой

2. Запрещено входить в кабинет информатики в грязной обуви без бахил или без сменной обуви

3. Запрещается шуметь, громко разговаривать и отвлекать других учащихся

4. Запрещено бегать и прыгать, самовольно передвигаться по кабинету

5. Перед началом занятий все личные мобильные устройства учащихся (телефон, плеер и т.п.) должны быть выключены

6. Разрешается работать только на том компьютере, который выделен на занятие

7. Перед началом работы учащийся обязан осмотреть рабочее место и свой компьютер на предмет отсутствия видимых повреждений оборудования

8. Запрещается выключать или включать оборудование без разрешения преподавателя

9. Напряжение в сети кабинета включается и выключается только преподавателем