Программа Packal !! Автоморфным называется такое число, которое равно последним цифрам своего квадрата. Например: 52=25; 252=625 Требуется найти все автоморфные числа в интервале [m, n]. Входные данные С клавиатуры вводятся значения целых чисел m и n Выходные данные на экран выводятся числа из интервала [m, n], являющиеся автоморфными. Если таких чисел нет, на экран выводится число 0

Замечание: в старых версиях паскаля вместо integer нужно использовать byte.
var n,i:integer;
s1, s2: set of integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
 if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(n);
s1:=[1]; s2:=[];
for i:=2 to n do
 if n mod i=0 then
  begin
  s1:=s1+[i];
  if prost(i) then s2:=s2+[i];
  end;
writeln('Все делители:');
for i:=1 to n do 
 if i in s1 then write(i,' ');
writeln;
writeln('Все простые делители:');
for i:=1 to n do 
 if i in s2 then write(i,' ');
writeln;
writeln('Делители, которые не являются простыми:');
for i:=1 to n do 
 if i in (s1-s2) then write(i,' ');
end.

Пример:
340
Все делители:
1 2 4 5 10 17 20 34 68 85 170 340 
Все простые делители:
2 5 17 
Делители, которые не являются простыми:
1 4 10 20 34 68 85 170 340