Помогите,пожалуйста!

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

Пример:

Введите N:

1000

1*1=1

5*5=25

6*6=36

25*25=625

76*76=5776

 

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*i); end;end.n = 10001*1=15*5=256*6=3625*25=62576*76=5776376*376=141376625*625=390625