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.