Нужно составить нормальный алгоритм Маркова! Алфавит ABCD. Заменить каждый чётный элемент на C и каждый 4ый на D.

Program Markov;
uses crt;
var a:string; i,b:integer;
begin
Clrscr;
writeln(Введите слово );
read(a);
b:=length(a);
for i:=1 to b do begin
If i mod 4 = 0 then
begin
delete(a,i,1);
insert(D,a,i);
end else
If i mod 2 =0 then begin
delete(a,i,1);
insert(C,a,i);
end;

end;

writeln(a);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.