uses crt;
Var a,b,i : Integer ;
Begin
Clrscr ;
Write ('Nhap a: '); readln (a);
Write ('Nhap b: '); readln (b);
i:=a + b;
If i mod 2 = 0 then writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so chan')
Else writeln ('Tong hai so ',a,' va ',b,' la ',i,', day la mot so le');
Readln ;
End.
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a+b mod 2=0 then writeln('tong la so chan')
else writeln('tong la so le');
readln;
end.
program ho_tro;
uses crt;
var a,b,c: integer;
begin
clrscr;
writeln(' nhap hai so:'); readln(a,b);
c:=a+b;
if (c mod 2)=0 then writeln(' la so chan:')
else writeln(' la so le:');
readln;
end.