Восстановите зашифрованную информацию и сформулируйте правило кодирования. зашифрованная информация - анклан

Берем по две буквы  и читаем наоборот, потом следующие две буквы и т.д.(для каждого нового слова начинаем с начала этого слова): получилось слово: канал

Program g; uses crt; var count, num, ch: integer; begin    clrscr;     writeln('год високосный? 1 - да, 0 - нет');     readln(ch);     if ch=1 then      begin        writeln('введите номер месяца');       readln(num);         сase num of          1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день.');         4, 6, 9, 11: writeln('в месяце 30 дней.');         2: writeln('в месяце 29 дней');         else writeln('некорректный ввод данных')      end;     end      else if ch=0   then      begin        writeln('введите номер месяца');         readln(num);     сase num of            1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день.');           4, 6, 9, 11: writeln('в месяце 30 дней.');           2: writeln('в месяце 28 дней');         else writeln('некорректный ввод данных')        end;       end    else writeln('некорректный ввод данных'); readln;   end.

Не корректно объяснили, но если правильно вас понял:   program g;   var n, z, m, p: integer;   begin      z: =0;   p: =0;     m: =0;     writeln('введите число n. число 9999 завершает цикл.');     readln(n);     while n< > 9999 do      begin        if n=0 then inc(z);           else if n> 0 then inc(p);           else inc(m);         writeln('введите число');         readln(n);       end;     writeln('было введено ', z, ' нулей.');     writeln('было введено ', p, ' положительных чисел.');     writeln('было введено ', m, ' отрицательных чисел.');       readln;   end.