какие слова получились , допиши вопос , я отвечу)))КАКие полученые шифровки?????????
Var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
<span>end.
Это на Pascal'е =)</span>
Вот так нужно? Составить программу только так могу.