chan_le.pas

Var 
  n: integer;
Begin
  write('Nhap n: ');
  read(n);
  writeln('-----------------');
  If (n Mod 2 = 0) Then
    writeln(n,' la so chan')
  Else
    writeln(n,' la so le');
  readln;
End.