Создать программу, выполняющую вставку элемента в массив (например, свой собственный месяц в году)
после элемента (после какого месяца), значение которого укажет пользователь.
Вывести на экран в виде списка

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var age:=ReadInteger('Введите возраст:');
  var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
  if gender=1 then
    case age of
    0..13:Writeln('Мальчик');
    14..20:Writeln('Юноша');
    21..70:Writeln('Мужчина');
    else Writeln('Старец')
    end
  else
    case age of
    0..13:Writeln('Девочка');
    14..20:Writeln('Девушка');
    21..70:Writeln('Женщина');
    else Writeln('Старушка')
    end
end.

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.