Автоморфные числа. натуральное число называется автоморфным, если оно равно последним цифрам его квадрата. например: 25^2=625. напишите программу, которая вводит натуральное число n и выводит на экран все автоморфные числа, не превосходящие n.

Var   n, i, m: longint;   s1, s2: string;   l1: integer; begin   write('введите натуральное число: ');   readln(n);   writeln('автоморфные числа: ');   for i : = 1 to n do   begin       m : = sqr(i);       str(i, s1);       l1 : = length(s1);       str(m, s2);       if s1 = copy(s2, length(s2) - l1 + 1, l1) then writeln(i)   end end. тестовое решение: введите натуральное число: 10000 автоморфные числа: 1 5 6 25 76 376 625 9376

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.