Program NhatNgu;
Uses crt;
Var x: longint;
    c: char;
Begin
        Clrscr;
        Write('Nhap x: '); Readln(x);
        c:='c';
        If (x mod 2 = 0) then Writeln(x,' chan')
        Else Writeln(x,' le');
        While c='c' do
        Begin
                Write('Ban co  muon tiep tuc khong? ');
                Readln(c);
                If c='c' then
                Begin
                        Write('Nhap x: '); Readln(x);
                        If (x mod 2 = 0) then Writeln(x,' chan')
                        Else Writeln(x,' le');
                End;
        End;
        Readln
End.

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.