Технический форум - Палиндромы

Прежде всего, с прискорбием отмечаю продолжение тупого вываливания заданий на форумы без малейшей попытки хоть что-то решить самостоятельно. Чем это закончится (причём неизбежно!) я уже писал здесь. Ну-ну, давайте. Только потом не плачьте.

Код:

Var

 n,a:Longint;



Function Revers(M:Longint):Longint;

var

 d,p,M1:Longint;

 Lng,i:Integer;

begin

 Lng:=Trunc(Ln(M)/Ln(10)); {Number of digits-1}

 p:=1;

 M1:=0;

 Repeat

  d:=M mod 10;

  for i:=1 to Lng do d:=d*10;

  M1:=M1+d;

  M:=M div 10;

  Lng:=Lng-1;

 Until M=0;

 Revers:=M1;

end;



Function Test_Palindr(M:Longint):Boolean;

begin

 Test_Palindr:=(M=Revers(M));

end;



Begin

 Write(' Max number of digits = ');

 Readln(n);

 Write(' a = ');

 Readln(a);

 Repeat

  Writeln(a:10, Revers(a):10);

  if Test_Palindr(a)=FALSE then a:=a+Revers(a);

  if Test_Palindr(a) then writeln(a:10);

 Until Test_Palindr(a) or ((Trunc(Ln(a)/Ln(10))+1)=n);

 Readln

End.

Если у Вас Паскаль АВС, то всюду Longint замените на Integer.