program soluongchanle;
uses crt;
var n,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
if i mod 2=1 then inc(d);
writeln('So luong so le la: ',d);
writeln('So luong so chan la: ',n-d);
{vi so luong so chan=so luong-so luong so le}
readln
end.