2 câu trả lời
program ct;
uses crt;
var n:real;
begin
clrscr;
writeln('Nhap n'); readln(n);
if n mod 2 = 1 then
writeln('N la so le')
else
writeln('N la so chan');
readln;
end.
________________
#Duahauvn
var n:longint;
begin
read(n);
if n mod 2 = 0 then write('n la so chan')
else write('n la so le');
readln; readln;
end.