1.
program btsydn;
uses crt;
var a: real;
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.
2.
program btsydn;
uses crt;
var a, b, c, tb: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
tb:=(a+b+c)/3;
write('Trung binh 3 so: ', tb);
if tb>5 then write('Dat') else write('Khong dat');
readln
end.