viết chương trình có sử dụng thủ tục kiểm tra một số nguyên là âm hay dương

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

program bai_giai;
uses crt;
var n:longint;
function kt(k:longint):boolean;
begin
    if k<0 then kt:=false else kt:=true;
end;
BEGIN
    clrscr;
    write('Nhap so: ');  readln(n);
    if (n=0) then write('Khong am, khong duong')
        else if kt(n) then write('Duong') else write('Am');
    readln;
END.