1.

In: Chổi xương, cuốc, bao bì, vật dụng cần thiết khác.

Out: Lao động ở trường.

MTTT:

B1: Đi đến trường

B2: Phân công lao động.

B3: Quét sân, cuốc đất hay cào cỏ, trồng cây.

B4: Điểm danh cuối giờ và thông báo cho giáo viên.

B5: Kết thúc buổi lao động

2.

if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

VD: if a>b then write(a) else write(b);

3.

program btsydn;

uses crt;

  var a: real;

begin

          clrscr;

          write('Nhap a = '); readln(a);

          if a mod 2 = 0 then write(a, ' la so chan') else (a, ' la so le');

          readln

end.

4.

program btsydn;

uses crt;

  var a, b, c, tb: integer;

begin

         clrscr;

         write('Nhap a = '); readln(a);

         write('Nhap b = '); readln(b);

         write('Nhap c = '); readln(c);

         tb:=(a+b+c)/3;

         write('Trung binh 3 so: ', tb);

         if tb>5 then write('Dat') else write('Khong dat');

         readln

end.