uses crt;
var x : integer; c : char;
begin
clrscr;
c := 'C';
while c = 'C' do begin
write('Nhap x = '); readln(x);
if x mod 2 = 0 then writeln(x,' la so chan')
else writeln(x,' la so le');
write('Ban co muon tiep tuc nua khong? ');
readln(c); end;
readln
end.