Bài 1: Viết phương trình tính và in ra màn hình chu vi và diện tích hình chữ nhật. Biết chiee\èu dài và chiều rộng được nhập từ bàn phím. Bài 2: Viết phương trình nhập số nguyên a từ bàn phím. Kiểm tra xem a là sô nguyên âm hay nguyên dương hay số 0? ( Yêu cầu tìm thuật toán rồi mới viết phương trình) Có ai giúp mik đc ko ạ, mik đang cần gấp!!

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.