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

Const
  n=5; // количество чисед
var
  i,k:integer;
  s:longint;
  m,d,dc:real;
  a:array[1..n] of longint;
  fin,fout:Text; // файловые переменные для ввода/вывода
 
begin
  Assign(fin,'input.txt'); Reset(fin); // файл готов к чтению
  s:=0;
  for i:=1 to n do
    if not Eof(fin) then begin
      Read(fin,a[i]);
      s:=s+a[i]
      end
    else begin
      Writeln('Во входном файле недостаточно данных');
      Close(fin);
      Exit
      end;
  Close(fin);
  m:=s/n;
  d:=Abs(a[1]-m); k:=1;
  for i:=2 to n do begin
    dc:=Abs(a[i]-m);
    if dc<d then begin
      k:=i; d:=dc
      end
    end;
  Assign(fout,'output.txt'); Rewrite(fout); // файл готов к записи
  Writeln(fout,a[k]);
  Close(fout)
end.

1)Военное дело
2)Моделирование физ. явлений и наблюдение на ними 
3)Обработка конкретных экспериментальных данных при проведении различных исследований
4)Решение задач метеопрогноза
5)Автоматизированные рабочие места
6)Автоматизированные системы планирования и управления производством
7)Банковские и биржевые компьютерные системы
8)Подготовка различных документов
9)Получение изображений внутренних частей непрозрачных тел
10)Системы массового обслуживания и информационно-справочные системы
11)Базы данных 
12)Аранжировка музыкальных произведений, цветомузыка
13)Компьютерный дизайн
14)Компьютерная мультипликация 
15)Лингвистика, расшифровка/зашифровка неизвестных языков, документов
16)Цифровая аудио- и видеозапись
17)Компьютерная геодезия и картография
18)Средства связи