Viết chương trình nhập vào hai số nguyên a,b. Tính hiệu a và b. Nếu hiệu mod 2 = 0 thì xuất hiệu là số chẵn. Ngược lại hiệu là số lẽ

Program BTT;
Uses crt;
Var a,b,h: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        h:=a-b;
        If h mod 2 = 0 then Write('Hieu la so chan')
        Else Write('Hieu la so le');
        Readln
End.

uses crt;

var a,b:longInt;

begin

clrscr;

write('Nhap a:');readln(a);

Write('Nhap b:');readln(b);

writeln('Hieu:',a-b);

if a-b mod 2=0 then write('hieu a va b la so chan') else write('hieu a va b la so le');

readln;

end.