Viết chương trình Pascal nhập vào bàn phím một số nguyên n. Kiểm tra n có là số lẻ hay không, in ra thông báo.

Câu 59:

uses crt;

var n:longint;

begin

clrscr;

write('nhap N');

readln(n);

if n mod 2 = 0 then

write('so chan')

readln;

end.

help

Câu 58:

uses crt;

var n:longint;

begin

clrscr;

write('nhap N');

readln(n);

if n mod 2 = 0 then

write('so le');

readln;

end.