Чим відрізняються алгоритми перейменування різних об'єктів файлової системи?

Var a,b,c: integer; begin       writeln('введите числа');       readln(a,b,c);       if ((a> b) and (b> c)) or ((c> b)and(b> a)) then writeln('число по середине b=',b);       if  ((a> c) and (c> b)) or ((c> a)and(b> c))  then writeln('число по середине c=',c);       if  ((b> a) and (a> c)) or ((a> b)and(c> a))  then writeln('число по середине a=',a);       readln; end.

Var     n,  n2,  sum,  pr: integer; begin       read(n);     sum : = (n div 10)+(n  mod  10);     pr : =     (n div 10)*(n mod 10);       n2 : =  (n mod 10)*10  +  (n  div  10);       writeln('сумма  цифр  =  ',  sum);       writeln('прозведение цифр = ', pr);         writeln('полученое  число = ', n2);   end.