Program Tin_hoc;

Uses crt;

Var M: array[1..10000000] of longint;

      i, n: longint;

Function kt(x: longint): boolean;

Begin

       kt:=false;

       If x mod 2 = 1 then kt:=true;

End;

Begin

       Writeln('Nhap n: '); Readln(n);

       For i:=1 to n do 

       Begin

              Write('M[',i,']='); Readln(M[i]);

       End;

       Write('Cac phan tu la so le la: ');

       For i:=1 to n do

              If kt(M[i])=true then write(M[i],' ');

       Readln

End.

uses crt;
type mang=array[1..1000000] of longint;
var n,i:longint; a:mang;
{---Chuong-trinh-con---}
function sl(var a:mang; i:longint):boolean;
begin
   sl:=true;
   if a[i] mod 2=1 then sl:=true else sl:=false;
end;
{---Chuong-trinh-chinh---}
begin
   clrscr;
   write('Nhap so luong phan tu: '); readln(n);
   for i:=1 to n do 
      begin
         write('Phan tu thu ',i,': '); readln(a[i]);
      end;
   for i:=1 to n do 
      if sl(a,i) then write(a[i],' '); writeln;
   readln
end.