Ввести натуральное число n и найти сумму всех чисел от 1 до n (1+2+3++n) используя цил

Ввести n а=n c=0 x=1 пока a< > 0   x=x+c c=c+1 a=a-1 кц пока

uses crt;

var

  ar: array[1..19]of integer;

  i, mul, sum, count, min, mini: integer;

begin

  count : = 0;

  sum : = 0;

  mul : = 1;

  randomize;

  for i : = 1 to 19 do

  begin

    ar[i] : = random(13) - 6;

    mul : = mul * ar[i];

    if(ar[i] mod 2 = 0) then

    begin

      textbackground(green);  

      sum : = sum + ar[i];

      count : = count + 1;

    end;

    if(ar[i] = 5) then

      textbackground(red);

    write(ar[i], ' ');

    textbackground(black);  

  end;

  writeln();

  writeln('произведение всех элементов массива = ', mul);

  writeln('сумма четных чисел = ', sum, ', количество = ', count);

  min : = ar[1];

  mini : = 1;

  write('номера элементов, равных 5: ');

  for i : = 1 to 19 do

  begin

    if(ar[i] = 5) then

      write(i, ' ');

    if((ar[i]) < min) then

    begin

      min : = ar[i];

      mini : = i;

    end;

  end;

  writeln();

  writeln('минимальный элемент = ', min, ', его номер = ', mini);

end.

Текстовые редакторы  — это программы для создания, редактирования, форматирования сохранения и печати документов. современный документ может содержать, кроме текста, и другие объекты (таблицы, диаграммы, рисунки и т. более совершенные текстовые редакторы, имеющие целый спектр возможностей по созданию документов (например, поиск и символов, средства проверки орфографии, вставка таблиц и называют иногда текстовыми процессорами. примером такой программы является word из офисного пакета microsoft office. мощные программы обработки текста — настольные издательские системы — предназначены для подготовки документов к публикации. пример подобной системы —  adobe pagem