1,
Program tinh_tong;
Var
A,b:integer;
Begin
write('Nhap hai so '); readln(a,b);
write('Tong hai so la: ',a+b);
Readln;
End.
2,
Program trung_binh_cong;
Var
a,b:integer;
Begin
write('Nhap hai so: '); readln(a,b);
write('Trung binh cong cua 2 so la: ',(a+b)/2);
Readln;
End.