Задача. Ввести строку и заменить в ней все буквы «ё» на буквы «е».

Составьте программу для решения этой задачи.

• var i: integer;
• s : string;
• begin
• for i := 1 to length\(s\) do
• if s
  \[i\]
  = 'ё' then s
  \[i\]
  := 'е';
• writeln \( s \);
• end.