Thuật toán:
B1: Khai báo biến a,b.

B2: Nhập vào 2 số a,b.

B3: Tính chu vi : Lấy (a + b)*2, tính diện tích: Lấy a*b.

B4: Kết thúc. 

Bài 1:
Var a,b:integer;

Begin

  writeln('nhap a,b=');readln(a,b);

  writeln('Chu vi la',(a+b)*2);

  writeln('Dien tich la',a*b);

  readln;

End.

Bài 2:

Thuật toán:
B1: Khai báo biến a.

B2: Nhập vào số nguyên a.

B3: Nếu a > 0 thì a là số nguyên dương => B6.

B4: Nếu a < 0 thì a là số nguyên âm => B6.

B5: Nếu a = 0 thì a là số 0 => B6

B6: Kết thúc
Var a:integer;

Begin

  writeln('nhap a=');readln(a);

  If a > 0 then writeln('a la so nguyen duong');

  If a < 0 then writeln('a la so nguyen am');

  If a = 0 then writeln('a la so 0');

  readln;

End.

Bài 1:

thuật toán:

bước 1: khai báo biến a và b là kiểu số thực (float)

bước 2: nhập a và b 

bước 3:cv<-- (a + b)*2

bước 3.1:dt <-- a * b

bước 4: in kết quả ra màn hình 

chương trình:trong ảnh 1

bài 2:

thuật toán:

bước 1:khai báo a là kiểu số nguyên(integer) 

bước 2:nhập a 

bước 3:nếu a > 0  thì đến bước 4

bước 3.1: nếu a < 0 thì đến bước 4

bước 3.2:nếu a == 0 thì đến bước 4

bước 4:in kết quả ra màn hình 

chương trình: ảnh 2