$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH:

Bài 1:

program chan_le;
uses crt;
var a: integer;
begin
clrscr
writeln('Nhap gia tri a: '); readln(a);
begin
if (a mod 2=0) then writeln(a,' la so chan') else writeln(a,' la so le);
end;
readln;
end.

Bài 2: 

program so_sanh;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap gia tri a: '); readln(a);
writeln('Nhap gia tri b: '); readln(b);
begin
if (a<b) then writeln(a,' nho hon ',b);
if (a>b) then writeln(a,' lon hon ',b);
if (a=b) then writeln(a,' bang ',b);
end;
readln;
end.

Bài 2:

a = int(input("Nhập số a"))
b = int(input("Nhập số b"))
if (a > b):
 print("a lớn hơn b")
elif (a == b):
 print("a bằng b")
elif (a < b):
 print("a nhỏ hơn b")