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

var

n, i, r, l1: longint;

s1, s2: string;

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

beginr := 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.