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.
