Chương trình 1:

 uses crt;

 var a,b:integer;

 begin

         clrscr;

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

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

         writeln('Trung binh cong 3 so la: ', (a+b+c)/3);

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

         writeln('Thuong 2 so la: ', a/b);

         readln;

end.

Chương trình 2:

  uses crt;

  var a,b,C,S:real;

  begin

           clrscr;

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

           C:=(a+b)*2;

           S:=a*b;

           writeln('Chu vi hcn la: ',C);  

           writeln('Dien tich hcn la: ',S);

           readln;

end.

 Tương tự với thuật toán tính chu vi và diện tích của:

  * Hình tròn

     Chu vi: 2*3,14*r

     Diện tích: 3,14*r*r

  * Hình vuông

      Chu vi: 4*a

      Diện tích: a*a

   * Tam giác:

       Chu vi: a+b+c

       Diện tích: 1/2*a*b hoặc 1/2*a*h

Chương trình 1:

 uses crt;

 var a,b:integer;

 begin

         clrscr;

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

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

         writeln('Trung binh cong 3 so la: ', (a+b+c)/3);

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

         writeln('Thuong 2 so la: ', a/b);

         readln;end. howi nhieeuf