1.
uses crt;
var A: integer;
begin
clrscr;
write('Nhap A = '); readln(A);
if A mod 3 = 0 then write(A, ' chia het cho 3') else write(A, ' khong chia het cho 3');
readln
end.
2.
uses crt;
var m: integer;
begin
clrscr;
write('Nhap m = '); readln(m);
if m mod 2 = 0 then write('So vua nhap la so chan!') else write('So vua nhap la so le');
readln
end.
3.
uses crt;
var a, h: integer;
S: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap h = '); readln(h);
S:=a*h/2;
writeln('Dien tich hinh tam giac do la: ', S:1:0);
readln
end.