Напишите,,программу на питоне. буду

 екстовые редакторы — это программы для создания, редактирования, форматирования, сохранения и печати документов. Современный документ может содержать, кроме текста, и другие объекты (таблицы, диаграммы, рисунки и т. д.).
    
     Более совершенные текстовые редакторы, имеющие целый спектр возможностей по созданию документов (например, поиск и замена символов, средства проверки орфографии, вставка таблиц и др.), называют иногда текстовыми процессорами. Примером такой программы является Word из офисного пакета Microsoft Office.
    
     Мощные программы обработки текста — настоль ные издательские системы — предназначены для подготовки документов к публикации. Пример подобной системы — Adobe PageMaker.
    
     Редактирование — преобразование, обеспечивающее добавление, удаление, перемещение или исправление содержания документа. Редактирование документа обычно производится путем добавления, удаления или перемещения символов или фрагментов текста.
    
     Объектно-ориентированный подход дает возможность реализовать механизм встраивания и внедрения объектов (OLE — Object Linking Embedding). Этот механизм позволяет копировать и вставлять объекты из одного приложения в другое. Например, работая с документом в текстовом редакторе Word, в него можно встроить изображения, анимацию, звук и даже видеофрагменты и таким образом из обычного текстового документа получить мультимедиа-документ.
    
     Форматирование — преобразование, изменяющее форму представления документа. В начале работы над документом целесообразно задать параметры страницы: ее формат (размер), ориентацию, размер полей и др.
    
     Форматирование абзаца. Абзац является одним из основных объектов текстового документа. В компьютерных документах абзацем считается любой текст, заканчивающийся управляющим символом (маркером) конца абзаца. Ввод конца абзаца обеспечивается нажатием клавиши {Enter} и отображается символом Ц.
    
     В процессе форматирования абзаца задаются параметры его выравнивания (выравнивание отражает расположение текста относительно границ полей страницы), отступы (абзац целиком может иметь отступы слева и справа) и интервалы (расстояние между строк абзаца), отступ красной строки и др.
    
     Форматирование символов. Символы — это буквы, цифры, пробелы, знаки пунктуации, специальные символы, такие как @, *, &. Символы можно форматировать (изменять их вид), задавая шрифт, размер и начертание.
    
     Шрифт — полный набор символов определенного начертания, включая прописные и строчные буквы, знаки препинания, специальные символы, цифры и знаки арифметических действий. Для каждого исторического периода и разных стран характерен шрифт определенного рисунка. Каждый шрифт имеет свое название, например Times New Roman, Anal, Courier и др.
    
     По представления в компьютере различаются шрифты растровые и векторные. Для представления растровых шрифтов служат методы растровой графики, символы шрифта — это группы пикселей. Растровые шрифты допускают масштабирование только с определенными коэффициентами.
    
     В векторных шрифтах символы описываются математическими формулами и возможно произвольное их масштабирование. Среди векторных шрифтов наибольшее распространение получили шрифты типа True Type.
    
     Размер шрифта. Единицей измерения размера шрифта является пункт (1 пт = 0,376 мм). В текстовом редакторе Word по умолчанию используется шрифт Times New Roman размером 12 пт. Ниже приведены примеры представления текста с шрифта различного размера:
    
     Шрифт размером 14 пт.
    
     Шрифт размером 10 пт.
    
     Шрифт размером 6 пт
    
     Начертание. Кроме нормального (обычного) начертания символов обычно применяют полужирное, курсивное и полужирное курсивное.
    
     Формат файла определяет хранения текста в файле. Простейший формат текстового файла (ТХТ) содержит только символы (числовые коды символов), другие же форматы (DOC, RTF) содержат дополнительные управляющие числовые коды, которые обеспечивают форматирование текста.

Program prog1;
Uses crt;
var a: array [1..50] of integer;
    k, i: integer;
begin
clrscr; randomize;
for i:=1 to 50 do
begin
a[i]:= random(41);
write(a[i],'  ');
if a[i]=23 then inc(k);
end;
writeln;writeln; writeln('k = ',k);
end.

Program prog2;
Uses crt;
var a: array [1..50] of integer;
    i: integer;
begin
clrscr; randomize;
for i:=1 to 50 do
begin
a[i]:= random(41);
write(a[i],'  ');
if (a[i] mod 5) =0 then a[i]:=-1;
end;
writeln;writeln;
for i:=1 to 50 do
write(a[i],'  ');
end.

Program prog3;
Uses crt;
var a: array [1..10] of integer;
    tmp, i: integer;
begin
clrscr; randomize;
for i:=1 to 10 do
begin
a[i]:= random(41);
write(a[i],'  ');
end;
tmp:=a[2];
a[2]:=a[9];
a[9]:=tmp;
writeln;writeln;
for i:=1 to 10 do
write(a[i],'  ');
end.

Program prog4;
Uses crt;
var a: array [1..100] of integer;
    n, i,k: integer;
begin
clrscr; randomize;
write('N = ');
readln(n);
for i:=1 to n do
begin
a[i]:= random(41);
write(a[i],'  ');
end;
writeln;writeln;
for i:=1 to n-1 do
if ((a[i] mod 10)=2)and((a[i+1] mod 10)=2) then inc(k);
writeln('k = ', k);
end.