Напишите программу, которая вводит натуральное число N и выводит на экран все автоморфные числа, не превосходящие 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.