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!!!!

Program baitap;

Uses crt;

Var a,S:real;

Begin

Clrscr;

S:=0;

Write('Nhap so thu 1');

Readln(a);

S:=S+a;

Write('Nhap so thu 2');

Readln(a);

S:=S+a;

Write('Nhap so thu 3');

Readln(a);

S:=S+a;

Write('Nhap so thu 4');

Readln(a);

S:=S+a;

Write('Nhap so thu 5');

Readln(a);

S:=S+a;

Writeln('Trung binh tong cua 5 so do:',S/5:6:2);

Readln

End.