program kiem_tra_so;
uses crt;
var a,k : integer;
begin clrscr;
write(' Nhap so a = '); readln(a);
write(' Nhap so k = '); readln(k);
If a = 2 * k then writeln(' a la so chan')
else writeln(' a la so le ');
readln;
end.
viết chương trinh in ra 100 dong thong bao chào các bạn