10. Авmoморфные числа. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например: 25 и 625. Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N.

спасибо, конечно, но это не процедура.

О процедуре здесь речи не было. Задание: "Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N."

сори, реально, забыла уточнить:программа должна содержать процедуру

var n,i,l:integer; s1,s2:string; beginwrite('n = '); readln(n);for i:=1 to n do begin str(i,s1); l:=length(s1); str(i*i,s2); if s1=copy(s2,length(s2)-l+1,l) then writeln(i,'  ',i*i); end;end.Пример:n = 100001  15  256  3625  62576  5776376  141376625  3906259376  87909376