Câu 2
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a)
else if a<b then writeln(b);
readln;
end.
Câu 3
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a: ');readln(a);
if a mod 2 = 0 then write('a la so chan') else ('a la so le');
readln;
end.
Câu 4
uses crt;
var a,b,c,max:integer
begin
clrscr;
write('nhap so thu nhat ='); readln(a);max:=a;
write('nhap so thu hai ='); readln(b);if max<b then max:=b;
write('nhap so thu ba ='); readln(c);if max<c then max:=c;
writeln('So lon nhat la: ',max);
readln;
end.
