`a,`

program Tong;

uses crt;

Var a,b : Integer;

Begin

clrscr;

write('Ban hay nhap so a:');

readln(a);

write('Ban hay nhap so b:');

readln(b);

write('Tong cua hai so a va b la:', a + b);

readln;

end.

`b,`

program chanle;

uses crt;

Var a : Integer;

Begin

clrscr;

write('Ban hay nhap so a:');

readln(a);

If a mod 2 = 0 then write(a,'la so chan.') else write(a,' la so le.');

readln;

end.

`***` Mấy từ mình in đậm là từ khóa nhé

a)program tonghaiso;

uses crt;

var a,b,tong:integer;

begin

clrscr;

writeln('nhap so a=');readln(a);

writeln('nhap so b=');readln(b);

tong:=a+b;

writeln('Tong hai so a va b la:',tong);

readln;

end.

b)program kiemtrachanle;

uses crt;

var n,i:integer;

begin

write('Nhap so n=');readln(n);

for i:= 1 to n do

if (n mod 2)=0 then write(n,' la so chan')

else write(n,'khong la so chan');

readln;

end.