program bai_giai;
uses crt;
var n,tram,chuc,donvi:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  tram:=n div 100;
  chuc:=n mod 100 div 10;
  donvi:=n mod 10;
  writeln('chu so hang tram la:',tram);
  writeln('chu so hang chuc la:',chuc);
  writeln('chu so hang donvi la:',donvi);
  if(tram mod 2<>0)and(chuc mod 2<>0)and(donvi mod 2<>0)then write('khong co chu so chan')else write('co chu so chan');
 readln;
end.

program ct;
uses crt;
var N,i,hDV,hC,hT: integer;
    a:string;
begin
    clrscr;
    writeln('Nhap N'); readln(n);
    hT:=N div 100; N:= N - (hT*100);
    hC:=N div 10; N:= N - (hC*10);
    hDV:=N; 
    writeln('Hang tram cua N: ',hT);
    writeln('Hang chuc cua N: ',hC);
    writeln('Hang DV cua N: ',hDV);
    if (hT mod 2) = 0 then 
        a:='Co chu so chan'
    else
        begin
        if (hC mod 2) = 0 then 
            a:='Co chu so chan'
        else
            begin
            if (hDV mod 2) = 0 then 
                a:='Co chu so chan'
            else
                a:='Khong co chu so chan';
            end;
        end;

    writeln(a);
    readln;
end.

______________________

#Duahauvn