Написать программу поиска совершенного числа.

var
  a, e : integer;
  s : string;
begin
  repeat
    write('Введи число: ');
    readln(a)
  until a > 0;
    str(a, s);
    s := s + s[1];
    val(s, a, e);
    writeln(a)
end.

var
  a, e : integer;  
begin
  repeat
    write('Введи число: ');
    readln(a)
  until a > 0;
    e := a;
    while e > 10 do
      e := e div 10;
    a := a * 10 + e;    
    writeln(a)
end.

n:=n*10+k;//n-само число,к цифра

var n,m:LongInt;
begin
Write('Введите натуральное число:');
Read(n);
m:=n;
while m>9 do m:=m div 10;
n:=n*10+m;
Writeln('Полученное число:',n);
Readln;
end.

var i,j,s:Integer;
begin
for i:=1 to 32767 do//Проходим все числа от 1 до макс. в типе Integer
begin
s:=0;//Обнуляем сумму
for j:=1 to i div 2 do //Перебираем все делители от 1
if i mod j=0 then s:=s+j;//Если делится то прибавляем к s
if s=i then Write(i,' ');//Если сумма равна числу выводим на экран
end;
Writeln;
Writeln('Программа завершена.');
Readln;
end.