решить заранее Устройство для показа компьютерных презентаций на большом экране.
2) Взаимодействие человека и компьютера, при котором человек может вмешиваться в ход работы программы.
3) Устройство для записи цифрового видео.
4) Ввод, сохранение в цифровом виде и обработка видеосигнала.
5) Устройство, с которого можно принимать и сохранять на компьютере телевизионные сигналы и радиосигналы.
6) Прикладная компьютерная программа.
7) Устройство, которое управляет выводом информации на дисплей по командам процессора. 8) Элемент компьютерной презентации.
9) Оживление изображения на экране компьютера.
10) Использование различных форм представления информации в одном компьютерном документе изготовления некоторого «продукта» из исходных материалов.

Отказы технических систем из-за дефектов изготовления и нарушений режимов эксплуатации; многие современные потенциально опасные производства спроектированы так, что вероятность крупной аварии на них весьма высока и оценивается величиной риска 10-4  и более; ошибочные действия операторов технических систем; статистические данные показывают, что более 60% аварий произошло в результате ошибок обслуживающего персонала; концентрация различных производств в промышленных зонах без должного изучения их взаимного влияния; высокий энергетический уровень технических систем; внешние негативные воздействия на объекты энергетики, транспорта и др.

1)

var sum, number, n: integer;
begin
  sum := 0;
  number := 1;
  write('Введите n: ');
  readln(n);
  while (number <= n) do
  begin
    sum := sum + number;
    number := number + 2;
  end;
  write('Сумма равна ', sum);
end.

2)

var prod, number, n: integer;
begin
  prod:= 1;
  number := 3;
  write('Введите n: ');
  readln(n);
  while (number <= n) do
  begin
    prod := prod * number;
    number := number + 3;
  end;
  write('Произведение равно ', prod);
end.

3)

var number, n: integer;
begin
  number := 1;
  write('Введите n: ');
  readln(n);
  writeln('Таблица:');
  while (number <= n) do
  begin
    writeln(number:5, number*number:5, number*number*number:5);
    number := number + 1;
  end;
end.