Var a,b : real;
Begin
Writeln('Nhap vao 1 so thuc');
Readln(a) ;
If (a mod 2<>0) then writeln('a la so le')
Else writeln('a la so chan');
Readln;
End.
Đây là ct riêng của mik
Var a,b : real;
Begin
Writeln('Nhap vao 1 so thuc');
Readln(a) ;
If (a mod 2=1) then writeln('a la so le')
Else writeln('a la so chan');
Readln;