*Thuật toán:

Bước 1: Nhập bốn số a, b, c, d

Bước 2: Trung bình cộng:=(a+b+c+d)/4;

Bước 3: In trung bình cộng ra màn hình và kết thúc thuật toán

*CT:

Program noname;

Uses crt;

Var TB,a,b,c,d:real;

Begin

Write ('So a');

Readln (a);

Write ('So b');

Readln (b);

Write ('So c');

Readln (c);

TB:=(a+b+c+d)/4;

Write ('Trung binh cong',TB);

Readln;

End.

Input: 4 số a,b,c,d

Output: trung bình cộng của a,b,c,d

*Thuật toán:

B1: Nhập 4 số a,b,c,d

B2: tb:=(a+b+c+d)/4;

B3: In tb ra màn hình và kết thúc

*Chương trình:

program trungbinhcong;

uses crt;

var a,b,c,d:integer;

      tb:real;

begin

clrscr;

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

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

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

write('Nhap d: ');   readln(d);

tb:=(a+b+c+d)/4;

write('Trung binh cong la: ',tb:2:2);

readln

end.