Автоморфные числа

uses Crt;
var a,i : integer;
    ok : boolean;
 
function A_M(a:integer):boolean;
var st,st1:String;
    Lth: Integer;
Begin
    Str(a,st);
    Lth := Length(st);
    a := sqr(a);
    Str(a,st1);
    
    if (Pos(st,st1) <> 0)and(st[Lth]<>'0')
      then A_M := true
      else A_M := false;
End;
 
BEGIN
     write('Vvedite chislo v diapazone'+
            '(k primeru) ot 1 do 100 :');
     readln(a);
     
     for i:= 1 to a do
     begin
        ok := A_M(i);
        if ok = true then write(i,' ');
     end;
     
END.

uses crt;
function Avto(n:integer):boolean;
var m:longint;
    f:boolean;
begin
m:=n*n;{квадрат числа}
f:=true;{предположим что автоморфное}
while (n>0)and f do{пока первоечисло не ноль и соблюдается условие}
 begin
  if (n mod 10)<>(m mod 10) then f:=false{если последние цифры не совпадают, нет, выход}
  else{иначе}
   begin
    n:=n div 10;{делим оба числа на 10 и снова срвниваем последние цифры}
    m:=m div 10;
   end;
 end;
Avto:=f;{значение функции - истина или ложь}
end;
var a,b,i,k:longint;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел b>a:');
readln(a,b);
until(a>0)and(b>a);
writeln('Автоморфные числа в интервале ',a,'-',b);
k:=0;
for i:=a to b do
if Avto(i) then
 begin
  write(i,' ');
  k:=1;
 end;
if k=0 then write('Таких чисел нет!');
readln
end.

function automorph(i:longint):boolean;
var k,p:integer; di:longint;
begin
k:=0; di:=i;
while i>0 do
begin
     inc(k);
     i:=i div 10;
end;
if sqr(di) mod trunc(exp(ln(10)*k))=di then automorph:=true
else automorph:=false;
end;

begin
writeln('Введите начало и конец диапазона');
readln(s,f);
for i:=s to f do
if automorph(i) then write(i,' ');
end.

var i:longint;
     f,s:integer;
function automorph(i:longint):boolean;
var k,p:integer; di:longint;
begin
k:=0; di:=i;
while i>0 do
begin
     inc(k);
     i:=i div 10;
end;
if sqr(di) mod trunc(exp(ln(10)*k))=di then automorph:=true
else automorph:=false;
end;
 
begin
writeln('Введите начало и конец диапазона');
readln(s,f);
for i:=s to f do
if automorph(i) then write(i,' ');
end.