1. Бабушка Ефросинья решила свои 50000 рублей положить на вклад с ежемесячной капитализацией под 10% годовых. Ежемесячно она докладывает по 2 тысячи (кроме последнего месяца). Сколько денег она получит через год 2. Сортировка это… *
а) расстановка данных в определенном порядке
б) отбор записей или выполнение других операций с данными
в) отбор данных удовлетворяющих выбранному условию
3. Какой объем графического изображения необходим для хранения 4 страниц изображения при условии, что разрешающая дисплея равна 720*480 пикселей, а глубина цвета =32?

Program A_1;
uses crt;
Var
  i,n,sum: integer;
begin
  write('Введите N ');
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i;
  until i=n;
  writeln('Сумма чисел от 1 до ',n,' равна ',sum);
end.

Program B_2;
uses crt;
Var
  i,n,sum: integer;
begin
  write('Введите N ');
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i*i;
  until i=n;
  writeln('Сумма квадратов чисел от 1 до ',n,' равна ',sum);
end.

Program V_3;
uses crt;
Var
  i,n,sum: integer;
begin
  write('Введите N ');
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    if (i mod 2 = 0) then sum:=sum+i;
  until i=n;
  writeln('Сумма чётных чисел в диапазоне от 1 до ',n,' равна ',sum);
end.

Program G_4;
uses crt;
Var
  i,n,sum: integer;
begin
  i:=9;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i;
  until i=99;
  writeln('Сумма всех двузначных чисел равна ',sum);
end.

Может ли массив содержать целые и вещественные значения?
-Да может,если массив имеет вещественный тип
Для чего необходимо описание массива? 
-Чтобы создать массив с указанным количеством элементов и типом их значений
Что вы можете сказать о массиве, сформированном следующим образом:
а)Тут мы заполняем массив a с индексами от 1 до 10 случайными целыми числами от -50 до 50
б)Тут мы заполняем массив a с индексами от 1 до 20, присваивая каждому элементу массива значение его индекса
в)Тут мы заполняем массив a с индексами от 1 до 5, присваивая каждому элементу массива удвоенное значение его индекса минус 1