1,2,3,4. Program phep_tinh;
    uses crt;
    var a,b,tong,hieu,tich:integer; ---> Khai báo biến số nguyên
         thuong: real;                      ---> Khai báo thuong là số thực;
    Begin
           clrscr;
            write('Nhap so thu nhat: ');
            readln(a);
            write('Nhap so thu hai: ');
            readln(b);
            tong:= a + b;
            hieu:= a - b;
            tich:= a * b;
            thuong:= a/b;
            writeln('Tong cua hai so ',a,' + ',b, ' = ',tong);
            writeln('Hieu cua hai so ',a,' - ',b, ' = ',hieu);
            writeln('Tich cua hai so ',a,' * ',b, ' = ',tich);
            writeln('Thuong cua hai so ',a,' / ',b, ' = ',thuong:4:2);
            readln;
    End.