program pro1;
procedure max;
var
   a, i: integer;
   p: real;
begin
     writeln('Введите число');
     readln(a);
     p := 1;
     for i := 1 to a do begin
                        if (i mod 2 <> 0) then p := p * i;
                        end;
     writeln('произведение нечетных чисел = ', p);
     if (p < a) then writeln('Произведение меньше')
                else writeln('Произведение больше введенного числа');
end;

begin max;
end.

program pro1;
procedure max;
var
   a, i: integer;
   p: real;
begin
     writeln('Введите число');
     readln(a);
     p := 1;
     for i := 1 to a do begin
                        if (i mod 2 <> 0) then p := p * i;
                        end;
     writeln('произведение нечетных чисел = ', p);
     if (p < a) then writeln('Произведение меньше')
                else writeln('Произведение больше введенного числа');
end;

begin max;
end.

program pro2;
procedure max;
var
   sum: longint;
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then sum:=sum+i ;
     writeln ('совершенное число = ', sum);
end;
begin max;
end.

program pro2;
var
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then writeln('=', i);
end.

Var
 A,C:LongInt;

Function Odd_Dig(R:LongInt):LongInt;
var
 i,m:Byte;
 S,P,d:LongInt;
 b:boolean;
begin
 S:=R;
 P:=1;
 b:=false;
 Repeat
  d:=S div 10;
  m:=S mod 10;
  if (m mod 2)=1 then
   begin
    P:=P*m;
    b:=true;
   end;
  S:=d;
 Until d=0;
 If b then Odd_Dig:=P else Odd_Dig:=0;
end;

Begin
 Write('A = ');
 Readln(A);
 Write('C = ');
 Readln(C);
 If Odd_Dig(A)=0 then
  Writeln('No odd digits!')
 else
  Writeln(Odd_Dig(A)<C);
 Readln
End.

var
 a,i:Integer;

Procedure DVD(R,q:Integer);
begin
 if (R mod q)=0 then
  begin
   if q=1 then write(q) else write (q,', ');
  end;
end;

Begin
 write('a = ');
 readln(a);
 for i:=a downto 1 do DVD(a,i);
 writeln;
 readln
End.

var
 a,j,D,Dmin,Id_near:Integer;

Function Ideal(R:Integer):Boolean;
 var i,Sum:Integer;
begin
 Sum:=0;
 For i:=R-1 downto 1 do
  if (R mod i)=0 then Inc(Sum,i);
 Ideal:=(R=Sum);
end;

Begin
 Write('a (<10000) = ');
 Readln(a);
 Dmin:=20000;
 j:=1;
 Repeat
  Inc(j);
  If Ideal(j) then
   begin
    D:=Abs(a-j);
    if D<Dmin then
     begin
      Id_near:=j;
      Dmin:=D;
     end;
   end;
 Until (D>Dmin) or (j=10000);
 Writeln('Nearest Ideal is ',Id_near);
 readln
End.