нужно Какие утверждения истинны?
1)'1' = 1
2)ord('1') = 1
3)если c – литера и '0'≤c≤'9', то c – цифра
4)если c – литера и 'A'≤c≤'Z', то c – большая латинская буква
Если ответ будет верен отмечу

1. Информация - разъяснение, объяснение чего-либо, сообщение о состоянии и тд; Восприятие: Визуальное, слуховое, физиологическое(почувствовать что-либо) Аудиальная Тактильная Обонятельная Вкусовая; Форма представления: Текстовая Числовая Графическая Музыкальная Комбинированная. Свойства: актуальность, доступность (понятность), достоверность, репрезентативность, адекватность и полнота.
2. Информацию можно передать, получить, хранить, обрабатывать
3. бит, байт, килобайт, мегабайт, гигабайт и тд (насколько я понял)
4. 88 бит
5. Файл - какая-либо структура данных, распознаваемая компьютером как единое целое. Расширение файла - грубо говоря, тип файла(данных), то есть расширение txt это текстовая информация и тд
Полное имя файла, например, "Документ об истреблении животных ГОСТ 1488.txt", то есть полное имя файла включает в себя название и расширение файла
6. Текстовый редактор - программа для редактирования/создания текстовой информации, параметры страницы - если говорить о Word, то это ориентация бумаги, размер, подача, настройка полей и отступы; Курсор в текстовом редакторе это такая вертикальная палочка, которая мигает и из которой выходят буквы при вводе текста (если совсем просто), мигает он для того чтобы его можно было легко найти в тексте, так же этот курсор называют "каретка"; Редактирование текста - это внос правок в текст, проще говоря, изменение текста; Форматирование текста - это изменение каких-либо внешних свойств текста (цвет, размер, шрифт и тд)
7. Графический редактор - программа для редактирования/создания изображений, графической информации.Графический примитив - набор простых геометрических фигур, которые отображаются в интерфейсе программы, например, граф. редактор Paint - там есть набор фигур: прямоугольник, отрезок/прямая, круг, эллипс, при выборе которых можно вывести их на экран 

Var a: array of integer;
n, sum, max: integer;
 
begin
   sum:=0;
   write('Введите натуральное число n: ');
   readln(n);
   a := new integer[n];
 
  write('Введите действительные числа: ');
  for var i:=0 to a.Length-1 do
    read(a[i] );
   
  write('Сумма равна: ');
  for var i:=0 to a.Length-1 do
    sum:=sum+a[i];
  writeln(sum);  
  
  write('Максимальный элемент равен: ');
  max := a[0];
  for var i:=0 to a.Length-1 do
    if a[i]>max then 
    begin
      max := a[i];
    end;
  writeln(max); 
  
  write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
  sum:=sum+max;
  write(sum); 
 
end.