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 số a va b=',s);
If so mod 2 = 0 then
Writeln ('tong la so chan');
else writeln('tong la so le');
Readln;
End.
xin hay nhất ạ