- Hằng là giá trị không thể thay đổi trong quá trình thực hiện chương trình

Cú pháp: Const <tên hằng>=<giá trị>;

- Biến là giá trị có thể thay đổi trong quá trình thực hiện chương trình

Cú pháp: Var <tên biến>:<kiểu dữ liệu>;

a.

Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write('Moi ban nhap so a = '); readln(a);
Write('Moi ban nhap so b = '); readln(b);
Writeln('Tich 2 so vua nhap la: ',a*b);
Readln
End.

b.

Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write('Moi ban nhap so a = '); readln(a);
Write('Moi ban nhap so b = '); readln(b);
Writeln('Tong 2 so vua nhap la: ',a+b);
Readln
End.

c.

Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write('Moi ban nhap so a = '); readln(a);
Write('Moi ban nhap so b = '); readln(b);
Writeln('Hieu 2 so vua nhap la: ',a-b);
Readln
End.

d.

Uses crt;
Var d, r: integer;
Begin
Clrscr;
Write('Moi ban nhap chieu dai d = '); readln(d);
Write('Moi ban nhap chieu rong r = '); readln(r);
Writeln('Chu vi hinh chu nhat la: ',(a+b)*2);
Writeln('Dien tich hinh chu nhat la: ',a*b);
Readln
End.

e.

Uses crt;
Var a: integer;
Begin
Clrscr;
Write('Moi ban nhap canh a = '); readln(a);
Writeln('Chu vi hinh chu nhat la: ',a*4);
Writeln('Dien tich hinh chu nhat la: ',sqr(a));
Readln
End.

 b) - Bạn hiểu đơn giản hằng là 1 giá trị không đổi 

            Khai báo: const <tên hằng>=<giá trị>;

 c)  - Biến là 1 số có thể thay đổi

            Khai báo: var <tên biến>: <Kiểu dữ liệu>;

 Câu 4:  

 a+b+c)

    uses crt;

    var a,b: integer;

    begin

             clrscr;

             write('Nhap a va b: '); readln(a,b);

             writeln('Tich hai so la: ',a*b);

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

             writeln('Hieu hai so la: ',a-b);

             readln

     end.

 d)   uses crt;

       var D,R:real;

       begin

                clrscr;

                write('Gia tri cua D va R la: '); readln(D,R);

                writeln('Chu vi hinh chu nhat la: ',(D+R)*2);

                writeln('Dien tich hinh chu nhat la: ',D*R);

                readln;

        end.

e)     uses crt;

        var A:real;

        begin

                  clrscr;

                  write('Nhap A: '); readln(A);

                  writeln('Chu vi hinh vuong la: ',4*A);

                  writeln('Dien tich hinh vuong la: ',sqr(A));

                  readln;

         end.