program bai1;
uses crt;
var a,b,dt,cv:longint;
begin
 clrscr;
  write('nhap chieu dai hinh chu nhat:');readln(a);         
  write('nhap chieu rong hinh chu nhat:');readln(b);
  cv:=(a+b)*2;
  dt:=a*b;
  writeln('chu vi hinh chu nhat do la:',cv);
  write('dien tich hinh chu nhat do la:',dt);
 readln;
end.

-------------------------------------------------------

program bai2;
uses crt;
var r:longint;dt,cv:real;
begin
 clrscr;
  write('nhap ban kinh cua hinh tron');readln(r);
  cv:=r*2*3.14;
  dt:=r*r*3.14;
  writeln('chu vi hinh tron do la:',cv);
  write('dien tich hinh tron do la:',dt);
 readln;
end.

----------------------------------------------------

program bai3;
uses crt;
var a,b,h,c:longint;dt:real;
begin
 clrscr;
  write('nhap day lon:');readln(a);
  write('nhap day be:');readln(b);
  write('nhap chieu canh ben thu 1');readln(h);
  write('nhap chieu canh ben thu 2');readln(c);
  dt:=(a+b)/2*h;
  writeln('dien tich hinh thang la:',dt);
 readln;
end.

--------------------------------------------

program bai3;
uses crt;
var a,b,c:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('c=');readln(c);
  if(a+b>=c)and(a+c>=)and(b+c>=a)then writeln('ba canh a,b,c la hinh tam giac')
  else('ba canh a,b,c ko phai hinh tam giac')
 readln;
end.

bạn chỉ copy tới đây thôi nha còn ở dưới mình giải thích nha

câu 1:

B1: nhập chiều dài của hình chữ nhật

B2: nhập chiều rộng của hình chữ nhật

B3:cv<-(a+b)*2;

B4:dt<-a*b;

B5:xuất cv và diện tích

B6:kết thúc

câu 2:

B1: nhập bán kính hình tròn

B2:cv<-r*2*3.14;

B3:dt<-r*r*3.14;

B4:xuất chu vi và diện tích

B5:kết thúc

câu 3

B1: nhập tất cả cạnh của hình thang

B2:dt<-(a+b)/2*h;

B3:xuất diện tích hình thang

B4:kết thúc

câu 4

B1:nhập 3 cạnh của hình tam giác

B2:kt có phải là hình tam giác hay ko

B3:nếu đúng là hình tam giác thì xuất"phải"ngược lại xuất"không"

B4:kết thúc

1.

B1: Nhập a,b là chiều dài và chiều rộng.

B2: s←a*b; cv←(a+b)*2;

B3: Xuất s.

B4: Kết thúc.

2.

B1: Nhập r là bán kình hình tròn.

B2: s←r*r*pi; cv←2*r*pi;

B3. Xuất s, cv.

B4. Kết Thúc.

3.

B1: Nhập a,b là chiều dài 2 đáy, c,d là độ dài 2 cạnh bên và h là đường cao.

B2: s←0.5*h*(a+b); cv←a+b+c+d;

B3: Xuất s, cv.

B4: Kết thúc.

4. 

B1. Nhập 3 số a,b,c.

B2. Nếu a+b>c và a+c>b và b+c>a (tổng 2 cạnh luôn lớn hơn cạnh còn lại) thì xuất 'Có' ngược lại xuất 'Không'.

B3. Kết thúc.