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

Program n1; function au(n: longint): 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; m: =m div 10; end; end; au: =f; end; var i,n: longint; begin readln(n); for i: =1 to n do if au(i) then write(i,' '); end.