Giúp mình với mình đang cần gấp
-viết chương trình
*xác định bài toán
– input: giá trị của số tự nhiên N
– output: thông báo N là số chẵn hoặc số lẽ
* mô tả thuật toán
-B1: nhập giá trị cho biến N
-B2: Nếu N mod 2=0 thì thông báo ra màn hình
– B3: kết thúc
uses crt;
var N: integer;
begin
clrscr;
write(‘Nhap N = ‘); readln(N);
if N mod 2 = 0 then write(N, ‘ la so chan’) else write(N, ‘ la so le’);
readln
end.
Program bai_tap;
Uses crt;
Var N: integer;
Begin
Write (‘Nhap N=’);
Readln (N);
If N mod 2=0 then Writeln (‘N la so chan’) else Writeln (‘N la so le’);
Readln
End.