Nhập số tự nhiên N hỏi N có bao nhiêu chữ số chẵn, chữ số lẻ. In ra chữ số lẻ nhỏ nhất.

uses crt;
var min,n,t,d,d2:integer;
begin
clrscr;
write('N=');readln(n);
min:=n mod 10;
while n<>0 do
begin
 t:=n mod 10;
 if (min>t) and(t mod 2<>0) then min:=t;
 if t mod 2=0 then d:=d+1;
 if t mod 2<>0 then d2:=d2+1;
 n:=n div 10;
end;
writeln('so N co ',d,' cho so le');
writeln('so N co ',d2,' chu so chan');
writeln('chu so le nho nhat la:',min);
readln;
end.

uses crt;
var dl,dc,n,i:longint;
begin
clrscr;
write('n');
readln(n);
for i:=1 to n do
if i mod 2=0 then dc:=dc+1
else dl:=dl+1;
writeln('so chan',dc);
writeln('so le',dl);
writeln('min',1);
readln
end.