Mình làm từ phần khai báo luôn nhé!
Bài 1:
var
a:integer;
begin
write('Moi ban nhap so a: '); readln(a);
if a mod 2=0 then writeln(a,' la so chan') else writeln(a,' la so le');
readln;
end.
Bài 2:
var
a,b:integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a>b then writeln(a,' la so lon hon');
if a<b then writeln(b,' la so lon hon');
readln;
end.
Chúc bạn học tốt