Program bai1;
uses crt;
var a,b,s: integer;
begin
clrscr;
write('nhap so a ='); readln(a);
write('nhap so b ='); readln(b);
s:=a+b;
writeln('- tong cua hai so a va b =',s);
if s mod 2 = 0 then writeln('tong la so chan ')
else writeln('- tong la so le ');
readln;
end.