$#QLinkVNxWCDI$

Ta có cấu trúc chương trình như sau:

program wcdi;
uses crt;
var a,b,c,d,: integer;
      trungbinh: real;
begin
clrscr;
writeln('Nhap gia tri a: '); readln(a);
writeln('Nhap gia tri b: '); readln(b);
writeln('Nhap gia tri c: '); readln(c);
writeln('Nhap gia tri d: '); readln(d);
trungbinh:=(a+b+c+d)/4;
writeln('Trung binh cong cua 4 so vua nhap (lam tron toi dau thap phan thu 2) la: ',trungbinh:0:2);
readln;
end.

program trung_binh;

uses crt;

var a, b, c, d, tb : real;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

write('nhap so nguyen b :');readln(b);

write('nhap so nguyen c :');readln(c);

write('nhap so nguyen d :');readln(d);

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

writeln('trung binh cong 4 so la :', tb :8:2);

readln

end.