Напишите программку, которая вводит естественное число N и выводит на экран

var

n, i, r, l1: longint;

s1, s2: string;

begin
write (Введите натуральное число N: );
readln (n);
writeln (Автоморфные числа, не превосходящие число N: );
for i := 1 to n do

begin
r := sqr(i);
str (i, s1);
l1 := length (s1);
str (r, s2);
if s1 = copy (s2, length(s2) - l1 + 1, l1) then writeln (i)
end;
end.