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.
