uses crt;
var a:integer;
begin
clrscr;
readln(a);
if a mod 2=0 then write(a,' la so chan')
else write(a,' la so le');
readln;
end.
Đúng 0
Bình luận (0)