- hình vuông:
program TinhChuViDienTichHinhVuong;

uses crt;

var
   canh, chuvi, dientich: real;

begin
   clrscr;
   
   writeln('Nhap chieu dai canh hinh vuong: ');
   readln(canh);
   
   chuvi := 4 * canh;
   dientich := canh * canh;
   
   writeln('Chu vi hinh vuong la: ', chuvi:0:2);
   writeln('Dien tich hinh vuong la: ', dientich:0:2);
   
   readln;
end.
- hình tròn:
program TinhChuViDienTichHinhTron;

uses crt;

const
  pi = 3.14;

var
  banKinh, chuVi, dienTich: real;

begin
  clrscr;
  
  // Nhập bán kính của hình tròn
  write('Nhap ban kinh hinh tron: ');
  readln(banKinh);
  
  // Tính chu vi và diện tích của hình tròn
  chuVi := 2 * pi * banKinh;
  dienTich := pi * banKinh * banKinh;
  
  // In kết quả ra màn hình
  writeln('Chu vi hinh tron la: ', chuVi:0:2);
  writeln('Dien tich hinh tron la: ', dienTich:0:2);
  
  readln;
end.
- hình chữ nhật: 
program ChuViDienTichHinhChuNhat;

var
  chieuDai, chieuRong, chuVi, dienTich: Integer;

begin
  // Nhập chiều dài và chiều rộng từ bàn phím
  Write('Nhap chieu dai: ');
  Readln(chieuDai);
  Write('Nhap chieu rong: ');
  Readln(chieuRong);

  // Tính chu vi và diện tích
  chuVi := 2 * (chieuDai + chieuRong);
  dienTich := chieuDai * chieuRong;

  // In kết quả ra màn hình
  Writeln('Chu vi hinh chu nhat la: ', chuVi);
  Writeln('Dien tich hinh chu nhat la: ', dienTich);

  Readln;
end.
- hình tam giác:
program TinhCVDTTamGiac;
var
  a, b, c, h: real;
  chuvi, dientich: real;
begin
  writeln('Nhap do dai 3 canh cua tam giac:');
  readln(a, b, c);
  writeln('Nhap chieu cao tuong ung:');
  readln(h);
  chuvi := a + b + c;
  dientich := (a * h) / 2;
  writeln('Chu vi cua tam giac la: ', chuvi:0:2);
  writeln('Dien tich cua tam giac la: ', dientich:0:2);
  readln;
end.