Viết trương trình nhập vào 5 số bất kì, in ra màng hình trung bình tổng của 5 số đó(lưu ý chỉ sử dụng tối đa 2 biến)

program ct;
uses crt;
var sum,i: real;
begin
    clrscr;
    sum:=0;
    writeln('Nhap so thu nhat:'); readln(i);
    sum:=sum+i;
    writeln('Nhap so thu 2:'); readln(i);
    sum:=sum+i;
    writeln('Nhap so thu 3:'); readln(i);
    sum:=sum+i;
    writeln('Nhap so thu 4:'); readln(i);
    sum:=sum+i;
    writeln('Nhap so thu 5:'); readln(i);
    sum:=sum+i;
    writeln('Trung binh cong 5 so tren la: ', sum/5:5:0);
    readln;
end.

_________________________

#Duahauvn

P/s: Đoạn code nhập số trên là có thể dùng fot đc mà do chỉ có thể dùng tối đa 2 biến nên mik ko dùng nha!!!!