Исполнитель Шифровальщик обрабатывает строку из символов. Сначала он вычисляет длину исходной строки. Если она четна, то в конец цепочки добавляется буква А, если нечетна – в начало добавляется буква Я. В полученной строке каждая буква заменяется следующей по алфавиту (А – на Б, Б – на В, и т. д., а Я – на А Какую строку получит Шифровальщик, зашифровав строку ГЕПАРД? Комментарий. Шифровальщик использует полный алфавит, включая буквы Ё и Й.

Общение между людьми – это естественный и жизненно важный процесс. Когда-то эпистолярный жанр был единственным доступным общения людей, находящихся на удалении друг от друга. Почта существовала со времен древнего Рима, если не раньше. Люди переписывались. В литературе известны даже романы и повести в письмах.

Современные достижения в сфере  информационных технологий предлагают новые, более совершенные общения.

При этом почтовая переписка сохраняется. Это старый, но надежный общения, который обладает своими неповторимыми качествами. Современный формат почтовой переписки представляет электронная почта, иначе E-mail.

Электронная почта в отличие от обычной позволяет общаться адресатам практически мгновенно. Нажал кнопку «Отправить» (письмо), и через несколько секунд получатель видит это письмо в своей почте, в папке «Входящие».

Вариант с циклом while ... do...
program z1;
uses crt;
var n:longint;
i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
i:=1;                {это будет переменная-счетчик}
while i<=5 do
begin
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;       {в этой строке исправлена опечатка в оригинале}    
i:=i+1;                   {наращиваем счетчик вручную}
end;
writeln(max);
end.

Вариант с циклом repeat ... until
program z1;
uses crt;
var n:longint;i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
i:=1;
repeat
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;
i:=i+1;
until i>5;
writeln(max);
end.

Вариант с циклом repeat ... until без счетчика!
program z1;
uses crt;
var n:longint;
max,x:integer;
begin
clrscr;
read(n);
max:=-1;
repeat
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;
until n=0;
writeln(max);
end.
В последнем примере условием окончания цикла будет случай, когда число станет равным 0. Действительно, после каждого повторения цикла число становится на один разряд меньше (выделенная цветом строка программы), значит, когда-нибудь такое число станет равным 0 (цикл подходит для числа с любым количеством цифр). Пример: 34567 -> 3456 -> 345 -> 34 -> 3 -> 0