Xác định bài toán : Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử dụng hai biến

var a,b,c,d,s:longint;

begin

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

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

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

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

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

write('Trung binh cong la: ',s:0:5);

readln;

end.

Program TB_Cong_4_So;

uses crt;

Var s,a: real;

Begin

     Clrscr;

     S:=0;

     Write('Nhap so thu nhat:');readln(a); S:=S+a;

     Write('Nhap so thu hai:');readln(a); S:= S+a;

     Write('Nhap so thu ba:');readln(a); S:=S+a;

     Write('Nhap so thu tu:');readln(a); S:=S+a;

     Writeln('Trung binh cong: ',S/4:10:2);

     readln

end.