Bài 1

program bai_1;
uses crt;
var a, b, c: integer; //Bai 1
begin
        clrscr;
        // Bai 1
        write('Hay nhap so nguyen thu nhat: ');
        readln(a);
        write('Hay nhap so nguyen thu hai: ');
        readln(b);
        c := a + b;
        writeln('Tong hai so la: ', c);
        readln;
end.

Bài 2

program bai_2;
var d, e: integer;
     f: real; //Bai 2
begin
        // Bai 2       
        clrscr;
        write('Hay nhap so nguyen thu nhat: ');
        readln(d);
        write('Hay nhap so nguyen thu hai: ');
        readln(e);
        f := (d + e) / 2;
        writeln('Trung binh cong hai so la: ', f:0:2);
        readln;
end.

Bài 3

program bai_3;
var g: integer; //Bai 3
begin
        // Bai 3
        clrscr;
        write('Hay nhap so nguyen: ');
        readln(g);
        if g mod 2 = 0 then
                writeln('Day la so chan')
        else
                writeln('Day la so le');
        readln;
end.

1/

uses crt;

var a,b:integer;

      s:longint;

begin

    clrscr;

    readln(a,b);

    s:=a+b;

    write(s);

    readln;

end.

2/

uses crt;

var a,b,c:integer;

begin

    clrscr;

    readln(a,b);

    c:=(a+b)/2;

    write(c:2:2);

    readln;

end.

3/

uses crt;

var a:integer;

begin

    clrscr;

    readln(a);

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

    else write(a,' la so le.');

    readln;

end.