Выполнить анализ алгоритма. что будет напечатано в результате выполнения псевдокода. с пояснением! ​

Сходства                                                                   Различия

оба печатают и выдают готовый            нужны чернила и листы

результат                                                      плоская картина

облегчают работу

                                                                        нужен специальный пластик и                                                                                                                                                          

                                                                         платформа   трехмерная работа            

если то сделайте лучший ответ

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.