Жад созине ребус курып бериндерш отиниш​

Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
   Begin
   if (N mod 10) > A then A:= N mod 10;
   N:=N div 10;
   End;
Write(A)
End.

Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
   Begin
   if A=B then C:=true;
   if N>0 then
      Begin
      A:=N mod 10;
      N:=N div 10;
      End;
   if A=B then C:=true;
   if N>0 then
      Begin
      B:=N mod 10;
      N:=N div 10;
      End;
   End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.

Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш:

На один символ влево  СТРЕЛКА ВЛЕВО
На один символ вправо  СТРЕЛКА ВПРАВО
На одно слово влево  CTRL+СТРЕЛКА ВЛЕВО
На одно слово вправо  CTRL+СТРЕЛКА ВПРАВО
На один абзац вверх  CTRL+СТРЕЛКА ВВЕРХ
На один абзац вниз  CTRL+СТРЕЛКА ВНИЗ
К предыдущей строке  СТРЕЛКА ВВЕРХ
К следующей строке  СТРЕЛКА ВНИЗ
В конец строки  END
В начало строки  HOME
Если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. Существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. Это можно сделать с полос прокрутки, расположенных справа и внизу окна документа