Program BTH; uses Crt; var a,b,c,d,e,f:longint; procedure ST; Begin f:=a+b+c+d+e; end; Begin Clrscr; Write('Nhap so thu 1: ');readln(a); Write('Nhap so thu 2: ');readln(b); Write('Nhap so thu 3: ');readln(c); Write('Nhap so thu 4: ');readln(d); Write('Nhap so thu 5: ');readln(e); ST; Writeln('Tong 5 so tren la: ',f); readln; End.
