Пример длинного линейного алгоритма по информатике , буду

Достаточно длинный? ) var a: array [0..30] of integer;     i, o: integer;     s: string; begin       for i : = 1 to 30 do       begin           a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do       begin           writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then           begin               o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.

Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом: uses  graphabc; var  x0, y0, x1, y1: integer; begin          setwindowsize(400, 400); //устанавливаем размер окна      x0 : = windowwidth; //ширина окна      y0 : = windowheight; //высота окна          setfontcolor(clred); //устанавливаем цвет текста      textout(0, 0, 'сергей'); //надпись в левом верхнем углу            x1 : = windowwidth div 2; //половина ширины окна      y1 : = windowheight div 2; //половина высоты окна          setfontcolor(clblue);       textout(x1, y1, 'сергей'); //надпись посередине          setfontcolor(clyellow);       textout(0, y0, 'сергей'); //надпись в левом нижнем углу      setfontcolor(clpurple);     textout(x0, 0, 'сергей'); //надпись в правом верхнем углу          setfontcolor(clgreen);       textout(x0, y0, 'сергей'); //надпись в правом нижнем углу end.программа была написана   в pascal abc.net. , проверьте, работает ли она в вашем pascal.

Самой популярной и удобной программой, на мой взгляд, является  microsoft office word,  но он является платным и требуется лицензия(не для : ) )бесплатным аналогом и отцом данный программы является вшитый в windows wordpad. у него намного меньше функций, но зато бесплатный.существует много программ для данной деятельности от разных ос, но эти, на мой взгляд, самые практичные, как и вся линейка продуктов microsoft. еще удобны продукты компании adobe, но удобство и цена уступают microsoft-у.