^^ mong được giúp ạ Xin cảm ơn nhiềuuuu -.-

uses crt;

var

a,b,tong,tich,hieu: longint;

begin

clrscr;

write('nhap a,b=');

readln(a,b);

if (a mod 2=0) and (b mod 2=0)  then tong:=a+b

else ('khong la so chan');

writeln(tong);

if (a mod 2=1) and (b mod 2=1)  then tich:=a*b

else ('khong la so le');

writeln(tich);

if (a mod 2=0) and (b mod 2=1)  then hieu:=b-a

else ('khong la so chan and so le');

writeln( hieu);

readln;

end.

CHUC BAN HOC TOT

NHO CHO "CTLN"   NHA BRO