Поменяйте программу которая меняет 1 и 3 цифру 3-ёх значного числа Информацика.
Нихрена не понимаю. Но кто решит респект ​

Газета: передаёт текст,  изображения; как правило информация доступна, не всегда достоверна, своевременна, но неустойчива.
Электронная книга: передаёт текст,изображения,звук. Как правило информация доступна(+доступнее для тех, у кого аллергия на пыль и тех, кто не может всё время покупать те же газеты,однако менее доступна для тех, кто не может приобрести её саму), не всегда достоверна, не всегда своевременна, не всегда устойчива. Более хрупкая к физическим повреждениям->ниже сохранность информации.

Program Ex1;

var
  s: string;
  c: char;
  i, n, m, min: integer;

begin
  s := '';
  m := 0;
  n := 0;
  min := 10;
  writeln('Введите число');
  repeat
    read(c);
    s := s + c;
    i := StrToInt(c);
    if i mod 2 = 0 then
      if c <> '0' then m := m + 1;
    // для задания 2)
    n := n + 1;
    if i < min then min := i
  until c = '0';
  writeln('Введено число ', s, ', в нем четных цифр- ', m)
end.

program Ex2;

var
  s: string;
  i, d, n, min: integer;

begin
  min := 10;
  writeln('Введите число');
  readln(s);
  n := length(s);
  for i := 1 to length(s) do
  begin
    d := StrToInt(s[i]);
    if d < min then min := d
  end;
  writeln('Введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min)
end.